(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    103427,       2601]
NotebookOptionsPosition[     88021,       2281]
NotebookOutlinePosition[     88755,       2306]
CellTagsIndexPosition[     88675,       2301]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["1.0", "HistoryData",
  CellTags->"New",ExpressionUUID->"a468476d-9064-4954-80d4-a1a432b548cf"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified",ExpressionUUID->"dcf4a437-c188-449d-8458-a096fd9d2f4b"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete",ExpressionUUID->"235af45e-8d46-4347-97aa-0ca96cd993a0"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised",ExpressionUUID->"c3c88c45-2b5f-4c1b-8b34-86cadaad58c4"]
}], "History",
 CellChangeTimes->{{3.820742341382225*^9, 3.820742341581649*^9}},
 CellID->1247902091,ExpressionUUID->"b22199f1-725e-45eb-82f7-eee711cccfc1"],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449,ExpressionUUID->"ee23431f-c9fd-44b8-bb4e-f4977ffc2b9b"],

Cell["Symbol", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507,ExpressionUUID->"8a681bfc-9553-4c97-b738-6d4745f13303"],

Cell["RefpropLink Package", "Categorization",
 CellLabel->"Paclet Name",
 CellID->825209,ExpressionUUID->"affbb7a4-febe-45a8-b3bb-b1326a96cc7c"],

Cell["RefpropLink`", "Categorization",
 CellLabel->"Context",
 CellID->256073118,ExpressionUUID->"a400eb29-c137-4ac4-8fb5-56bc8f12ecb5"],

Cell["RefpropLink/ref/tsflsh", "Categorization",
 CellLabel->"URI",
 CellID->897493953,ExpressionUUID->"80bdfbf2-a05a-4f1c-956a-e5371199b973"]
}, Closed]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->477174294,ExpressionUUID->"7a38fd84-0bac-463f-82b4-10a87053535c"],

Cell["flash", "Keywords",
 CellChangeTimes->{{3.820742390774099*^9, 3.8207423924815555`*^9}},
 CellID->1164421360,ExpressionUUID->"06386b5a-cd1b-45b1-9221-3066d11bf024"],

Cell["saturation", "Keywords",
 CellChangeTimes->{{3.820742390774099*^9, 3.8207424098002195`*^9}},
 CellID->25082398,ExpressionUUID->"b7afaad7-4981-4c6f-ab55-92dbae73f306"],

Cell["entropy", "Keywords",
 CellChangeTimes->{{3.820742390774099*^9, 3.8207424120541916`*^9}},
 CellID->295521566,ExpressionUUID->"d564deb5-40be-4067-8d63-98d05bf1fc02"]
}, Closed]],

Cell[CellGroupData[{

Cell["Syntax Templates", "TemplatesSection",
 CellID->1872225408,ExpressionUUID->"23bf91ac-3bf1-4c69-90a2-cff29969bb49"],

Cell[BoxData[""], "Template",
 CellLabel->"Additional Function Template",
 CellID->1562036412,ExpressionUUID->"5d9c4697-560e-426c-9371-ba2617826a55"],

Cell[BoxData[""], "Template",
 CellLabel->"Arguments Pattern",
 CellID->158391909,ExpressionUUID->"42aac497-a7ff-4d8e-ac7c-4f73e190dbce"],

Cell[BoxData[""], "Template",
 CellLabel->"Local Variables",
 CellID->1360575930,ExpressionUUID->"080a37c8-5391-420b-ba2a-4a78ab666645"],

Cell[BoxData[""], "Template",
 CellLabel->"Color Equal Signs",
 CellID->793782254,ExpressionUUID->"858029ad-240b-49ba-b465-007b30b05313"]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771,ExpressionUUID->"50d7077e-5e69-4582-b3d1-8ae5d925a642"],

Cell["Patrick Fourspring", "Details",
 CellChangeTimes->{{3.8207423188375006`*^9, 3.8207423220618477`*^9}},
 CellLabel->"Lead",
 CellID->670882175,ExpressionUUID->"2c26a126-5947-4acb-9207-ebaf1107476a"],

Cell["Jeff Henning", "Details",
 CellChangeTimes->{{3.820742327357717*^9, 3.820742328861667*^9}},
 CellLabel->"Developers",
 CellID->350963985,ExpressionUUID->"1316aaa0-48a1-4d85-8629-d80647ee5a56"],

Cell["Jeff Henning", "Details",
 CellChangeTimes->{{3.820742334181467*^9, 3.8207423356943913`*^9}},
 CellLabel->"Authors",
 CellID->8391405,ExpressionUUID->"f72b87dd-315f-422d-8184-f00bc0b336c8"],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->3610269,ExpressionUUID->"baeec4d3-a1c6-4229-90bc-daf8e2ace0cb"],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->401364205,ExpressionUUID->"634ae53f-5ea2-4fbf-ae99-f67001c553b8"],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->350204745,ExpressionUUID->"583435fd-ba3c-42ae-8f62-3dd84c4d2fdf"],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->732958810,ExpressionUUID->"ed60a8c7-9a20-4a76-9a64-2e8839c5ee90"],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->222905350,ExpressionUUID->"d2c52bb4-69b9-44e3-9711-7e21e201c627"],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365,ExpressionUUID->"289a4266-f4c1-46c3-bc8e-6b37d9a9589d"]
}, Closed]],

Cell[CellGroupData[{

Cell["tsflsh", "ObjectName",
 CellID->1224892054,ExpressionUUID->"8b0a1e96-8808-4a40-9aa3-c2ec8f57dfa4"],

Cell[TextData[{
 Cell["   ", "ModInfo",ExpressionUUID->"e05379b3-292f-495c-899a-7ec35a34e735"],
 Cell[BoxData[
  RowBox[{"tsflsh", "[", 
   RowBox[{
    StyleBox["t", "TI"], ",", " ", 
    StyleBox["s", "TI"]}], "]"}]], "InlineFormula",ExpressionUUID->
  "2d10724b-7ae3-46ad-bee3-cbb633989440"],
 "\[LineSeparator]is a general flash calculation given Temperature [K] and \
Entropy [J/mol-K] for pure fluids. This routine accepts bot single-phase and \
two-phase inputs. \n",
 Cell["   ", "ModInfo",ExpressionUUID->"fe121be1-8fd6-43ee-be68-edf2ef3a9ff2"],
 Cell[BoxData[
  RowBox[{"tsflsh", "[", 
   RowBox[{
    StyleBox["t", "TI"], ",", " ", 
    StyleBox["s", "TI"], ",", " ", 
    StyleBox["kr", "TI"]}], "]"}]], "InlineFormula",ExpressionUUID->
  "b8f2de7d-c6ab-4a83-828f-f103b23b9962"],
 "\[LineSeparator]same as ",
 Cell[BoxData[
  RowBox[{"tsflsh", "[", 
   RowBox[{
    StyleBox["t", "TI"], ",", " ", 
    StyleBox["s", "TI"]}], "]"}]], "InlineFormula",ExpressionUUID->
  "cc6b224b-8afc-4be3-a0cf-c16ba2b16c21"],
 ", but supplies a root flag when multiple roots exit. Use ",
 Cell[BoxData[
  StyleBox["kr", "TI"]], "InlineFormula",ExpressionUUID->
  "1a2d651a-003d-423d-a6c5-7c3ac247a530"],
 "=2 to get the upper (liquid, single phase) root or ",
 Cell[BoxData[
  StyleBox["kr", "TI"]], "InlineFormula",ExpressionUUID->
  "d10d3c44-1cb2-40a0-95eb-0dda5f414087"],
 "=1 (default) to get the lower (2-phase) root. This routine accepts bot \
single-phase and two-phase inputs. \n",
 Cell["   ", "ModInfo",ExpressionUUID->"f0162559-939b-40f5-b07b-5ff730d85dbb"],
 Cell[BoxData[
  RowBox[{"tsflsh", "[", 
   RowBox[{
    StyleBox["t", "TI"], ",", " ", 
    StyleBox["s", "TI"], ",", " ", 
    StyleBox["z", "TI"]}], "]"}]], "InlineFormula",ExpressionUUID->
  "1d8a08ee-8413-404e-8cb1-5bdfbfdb19f6"],
 "\[LineSeparator]is a general flash calculation given Temperature [K], \
Entropy [J/mol-K], and bulk (molar) composition for mixtures. This routine \
accepts both single-phase and two-phase states as inputs. \n",
 Cell["   ", "ModInfo",ExpressionUUID->"14d333ce-a697-433b-93c0-d39445b6a48d"],
 Cell[BoxData[
  RowBox[{"tsflsh", "[", 
   RowBox[{
    StyleBox["t", "TI"], ",", " ", 
    StyleBox["s", "TI"], ",", " ", 
    StyleBox["z", "TI"], ",", " ", 
    StyleBox["kr", "TI"]}], "]"}]], "InlineFormula",ExpressionUUID->
  "9f982057-113d-4a2e-828e-07473a23b855"],
 "\[LineSeparator]same as ",
 Cell[BoxData[
  RowBox[{"tsflsh", "[", 
   RowBox[{
    StyleBox["t", "TI"], ",", " ", 
    StyleBox["s", "TI"], ",", " ", 
    StyleBox["z", "TI"]}], "]"}]], "InlineFormula",ExpressionUUID->
  "e5c4cf1c-9500-4d66-ad9b-97eb8b0b16db"],
 ", but supplies a root flag when multiple roots exist. Use ",
 Cell[BoxData[
  StyleBox["kr", "TI"]], "InlineFormula",ExpressionUUID->
  "a1d9ef07-a520-41e8-be00-9e86764b956d"],
 "=2 to get the upper (liquid, single phase) root or ",
 Cell[BoxData[
  StyleBox["kr", "TI"]], "InlineFormula",ExpressionUUID->
  "1c3ec5ef-c549-4363-8312-c3777fec983e"],
 "=1 (default) to get the lower (2-phase) root."
}], "Usage",
 CellChangeTimes->{{3.8207348242495904`*^9, 3.8207348286328707`*^9}, {
  3.820734868116433*^9, 3.820734912885771*^9}, {3.820734943937705*^9, 
  3.820735085442322*^9}, {3.8207351663050537`*^9, 
  3.8207351689679947`*^9}},ExpressionUUID->"06275a88-7604-4dae-b196-\
60396cd41e4d"],

Cell["\<\
General flash calculation given temperature and entropy.  This routine \
accepts both single-phase and two-phase states as inputs.\
\>", "Notes",
 CellChangeTimes->{{3.820734756576534*^9, 3.8207348121449614`*^9}, {
  3.820735110440477*^9, 3.820735114872593*^9}, {3.8207352318807554`*^9, 
  3.8207352339123216`*^9}},
 CellID->1067943069,ExpressionUUID->"a6e9e6ab-6859-4d5d-bf95-4607f22608d7"],

Cell[TextData[{
 Cell[BoxData[
  StyleBox["t", "TI"]], "InlineFormula",ExpressionUUID->
  "000bbeec-9b67-4444-88f4-98c446f50e96"],
 " is temperature in [",
 StyleBox["K", "InlineCode"],
 "] and may be provided as a ",
 Cell[BoxData[
  ButtonBox["Quantity",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "79c039fa-e0dd-4266-8396-5ac3c01dd7f7"],
 " with any pressure units."
}], "Notes",
 CellChangeTimes->{{3.8195080826372013`*^9, 3.8195080900095177`*^9}, {
   3.819706558842354*^9, 3.819706591879038*^9}, {3.819864801366519*^9, 
   3.8198648555665393`*^9}, 3.8198650159486637`*^9, {3.8207353018269463`*^9, 
   3.8207353143404837`*^9}},
 CellID->92685284,ExpressionUUID->"14e73317-7e0a-48c4-9755-73134710955d"],

Cell[TextData[{
 Cell[BoxData[
  StyleBox["s", "TI"]], "InlineFormula",ExpressionUUID->
  "cd3f9460-c9e6-4ab9-b428-21580cb8c669"],
 " is entropy in [",
 StyleBox["J/mol-K", "InlineCode"],
 "], but may be provided as a ",
 Cell[BoxData[
  ButtonBox["Quantity",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "c8e4ecfd-d8b2-4743-983a-5493d3b98b0b"],
 " with any entropy units."
}], "Notes",
 CellChangeTimes->{{3.819706620640151*^9, 3.8197066742079496`*^9}, 
   3.8198648646193295`*^9, 3.8198650242843456`*^9, {3.8207353220159893`*^9, 
   3.8207353595846815`*^9}},
 CellID->105947288,ExpressionUUID->"f54102a2-bf25-4eb9-be40-0d1af80535e1"],

Cell[TextData[{
 "Often, in the liquid, two solutions exist; one in the two-phase region.  If \
this is the case, call ",
 Cell[BoxData[
 "tsflsh"], "InlineFormula",ExpressionUUID->
  "d9d2a89d-d9a6-4f1c-b7d2-76e6b9a18e5b"],
 " with ",
 Cell[BoxData[
  StyleBox["kr", "TI"]], "InlineFormula",ExpressionUUID->
  "90c719c9-644a-4f0e-af95-167f5af67aa6"],
 "=2 to get the single-phase state.  If omitted, ",
 Cell[BoxData[
  StyleBox["kr", "TI"]], "InlineFormula",ExpressionUUID->
  "64972999-bbb1-4313-9e62-42a588750524"],
 "=1 (2-phase) is assumed."
}], "Notes",
 CellChangeTimes->{{3.8195077733680716`*^9, 3.8195078335531425`*^9}, 
   3.819864472180175*^9, 3.819864556098756*^9, {3.820735377544654*^9, 
   3.820735387563859*^9}},
 CellID->247327860,ExpressionUUID->"90987935-1459-4e51-87df-a844430a8869"],

Cell[TextData[{
 "Inputs ",
 Cell[BoxData[
  StyleBox["t", "TI"]], "InlineFormula",ExpressionUUID->
  "22f5c04e-13f8-4c20-842b-28bebcb03197"],
 " and ",
 Cell[BoxData[
  StyleBox["s", "TI"]], "InlineFormula",ExpressionUUID->
  "bcd51e7f-1156-4d2b-99c6-76d4ff7715d2"],
 " must both be Quantities or both be non-Quantities.  Mixed \
Quantity/non-Quantity will generate and error message."
}], "Notes",
 CellChangeTimes->{{3.8190303255761027`*^9, 3.819030483742182*^9}, {
  3.8190309752509346`*^9, 3.8190309775258503`*^9}, {3.819261354839636*^9, 
  3.819261396567091*^9}, {3.819452833881598*^9, 3.819452844096285*^9}, {
  3.8197067210367627`*^9, 3.819706722576645*^9}, {3.8207354037775006`*^9, 
  3.820735404665127*^9}},
 CellID->185672948,ExpressionUUID->"1fbc2146-e08e-4eb0-b6d8-0b59f60dcf6a"],

Cell[TextData[{
 "Return values are ",
 Cell[BoxData[
  StyleBox["P", "TI"]], "InlineFormula",ExpressionUUID->
  "c734cc41-4ef4-4c3c-8ba0-e6ce2b00a43e"],
 ", ",
 Cell[BoxData[
  StyleBox["Dl", "TI"]], "InlineFormula",ExpressionUUID->
  "0591968e-a706-4dcc-9002-6d86db4cbeac"],
 ", ",
 Cell[BoxData[
  StyleBox["Dv", "TI"]], "InlineFormula",ExpressionUUID->
  "bca04566-0059-4866-9b1a-f58a0f3484b4"],
 ", ",
 Cell[BoxData[
  StyleBox["xliq", "TI"]], "InlineFormula",ExpressionUUID->
  "f0fe45bf-3e6b-4713-b439-dede6a695b6f"],
 ", ",
 Cell[BoxData[
  StyleBox["xvap", "TI"]], "InlineFormula",ExpressionUUID->
  "9c662202-11d8-42bb-a486-cc7f017be43b"],
 ", ",
 Cell[BoxData[
  StyleBox["Q", "TI"]], "InlineFormula",ExpressionUUID->
  "e01b48ec-e285-40c3-9651-cafb20483f5e"],
 ", ",
 Cell[BoxData[
  StyleBox["U", "TI"]], "InlineFormula",ExpressionUUID->
  "70d9059b-2ed4-46c8-a68f-74eb2aef1ccd"],
 ", ",
 Cell[BoxData[
  StyleBox["H", "TI"]], "InlineFormula",ExpressionUUID->
  "d418e4d6-f782-4152-9783-a4086f2125ba"],
 ", ",
 Cell[BoxData[
  StyleBox["Cv", "TI"]], "InlineFormula",ExpressionUUID->
  "340ecb37-d54f-4b71-9e2e-ef605393b581"],
 ", ",
 Cell[BoxData[
  StyleBox["Cp", "TI"]], "InlineFormula",ExpressionUUID->
  "fa9808f4-be17-4869-9d15-e23b12c982de"],
 ", and ",
 Cell[BoxData[
  StyleBox["W", "TI"]], "InlineFormula",ExpressionUUID->
  "7db7d439-5df9-4ece-94dd-b0ad9b2ea048"],
 ".  If both inputs are passed as Quantities, the results will be returned as \
Quantity values in a ruled list.  If both inputs are passed as \
non-Quantities, then non-Quantities will be returned in a ruled list."
}], "Notes",
 CellChangeTimes->{{3.8190304949551992`*^9, 3.8190305337185483`*^9}, {
  3.8190307053446364`*^9, 3.8190309461926317`*^9}, {3.8190309808789177`*^9, 
  3.8190309935021305`*^9}, {3.819261301839381*^9, 3.8192613287972717`*^9}, {
  3.819706776266118*^9, 3.8197067806484165`*^9}, {3.819864989089464*^9, 
  3.819864991833155*^9}, {3.820735412242863*^9, 3.8207354230111895`*^9}},
 CellID->10490178,ExpressionUUID->"4cfd5f82-fcd3-4402-929f-c0ec4412165c"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "TutorialsSection",
 CellID->250839057,ExpressionUUID->"d009f48b-a153-44ad-849b-e5b40751650c"],

Cell[TextData[ButtonBox["Pure Fluids (Legacy API)",
 BaseStyle->"Link",
 ButtonData->"paclet:RefpropLink/tutorial/PureFluidsLegacyAPI"]], "Tutorials",
 CellChangeTimes->{{3.829558291402774*^9, 3.829558303402691*^9}, {
  3.829558341260483*^9, 3.8295583414499683`*^9}},
 CellID->341631938,ExpressionUUID->"f3df682a-224e-41f7-b160-e666c7bebd61"],

Cell[TextData[ButtonBox["Mixtures (Legacy API)",
 BaseStyle->"Link",
 ButtonData->"paclet:RefpropLink/tutorial/MixturesLegacyAPI"]], "Tutorials",
 CellChangeTimes->{{3.829558291402774*^9, 3.8295583216578856`*^9}, {
  3.829558353292308*^9, 3.8295583534847927`*^9}},
 CellID->339404089,ExpressionUUID->"d3bd9432-73a4-439c-bca3-0cebd2283152"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Demonstrations", "RelatedDemonstrationsSection",
 CellID->1268215905,ExpressionUUID->"bb8f35da-e74d-4594-a5a9-bb8d3fa273a9"],

Cell["XXXX", "RelatedDemonstrations",
 CellID->1129518860,ExpressionUUID->"efcd7a8b-2be1-4d47-9a08-49ca0d2a2d82"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "RelatedLinksSection",
 CellID->1584193535,ExpressionUUID->"086bd290-7910-44cd-95b3-e729bbb333c3"],

Cell["XXXX", "RelatedLinks",
 CellID->1038487239,ExpressionUUID->"432d6d26-a63f-4e14-8ed6-bff664e9c4fa"]
}, Open  ]],

Cell[CellGroupData[{

Cell["See Also", "SeeAlsoSection",
 CellID->1255426704,ExpressionUUID->"e6db9859-334f-4d41-bd53-c20e8c5b71bb"],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["psflsh",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/psflsh"]], "InlineFormula",
  ExpressionUUID->"4fc7c423-e593-4773-83a1-0a35f3a9c48f"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["thflsh",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/thflsh"]], "InlineFormula",
  ExpressionUUID->"ab38f806-c4c4-471e-b60e-e42aa0ab9896"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["phflsh",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/phflsh"]], "InlineFormula",
  ExpressionUUID->"14a09fd7-738d-4ab9-8b21-4f8e96d426b5"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["tdflsh",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/tdflsh"]], "InlineFormula",
  ExpressionUUID->"3f92c2dc-31ed-47be-977d-88131545b722"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["pdflsh",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/pdflsh"]], "InlineFormula",
  ExpressionUUID->"e0214d8c-b039-49ef-8263-fc7e53da26d0"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["satp",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/satp"]], "InlineFormula",
  ExpressionUUID->"59fa9d77-d4fe-4f8c-a25a-5a4479382175"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["satt",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/satt"]], "InlineFormula",
  ExpressionUUID->"544d654a-c129-432d-be68-da7eb7a123b2"]
}], "SeeAlso",
 CellChangeTimes->{{3.8207422281427865`*^9, 3.8207422700549235`*^9}},
 CellID->929782353,ExpressionUUID->"171a1937-a6c5-4d39-adf3-34d6562c7a6a"]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "MoreAboutSection",
 CellID->38303248,ExpressionUUID->"b153c977-3c2f-42d3-bbaa-9684d81126f9"],

Cell["XXXX", "MoreAbout",
 CellID->1665078683,ExpressionUUID->"622e5ed6-1984-4f07-b8d9-de9c96faa7e5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     StyleBox["Examples", "PrimaryExamplesSection"], 
     ButtonBox[
      RowBox[{
       RowBox[{"More", " ", "Examples"}], " ", "\[RightTriangle]"}],
      BaseStyle->"ExtendedExamplesLink",
      ButtonData:>"ExtendedExamples"]}
   }],
  $Line = 0; Null]], "PrimaryExamplesSection",
 CellID->880084151,ExpressionUUID->"ba117547-ee66-4f2c-8ecc-2659b913fb31"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Pure Fluids", "ExampleSubsection",ExpressionUUID->
   "f7631b5b-f6d5-48ad-b1b8-bb00c8423c8b"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.8207679750383053`*^9, 3.8207679916533127`*^9}},
 CellID->27774595,ExpressionUUID->"b01023f7-2785-43f5-b3a3-98306cf2375e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ierr", "=", 
  RowBox[{"setup", "[", 
   RowBox[{"{", "\"\<Water\>\"", "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8197177200897655`*^9, 3.8197177322053766`*^9}},
 CellLabel->"In[1]:=",
 CellID->6918097,ExpressionUUID->"23296ff6-39a8-4e2c-a31f-6d78713af818"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.8197177345640745`*^9, 3.81971883220793*^9, 
  3.81971954783595*^9, 3.819719736643281*^9, 3.8207680063150077`*^9, 
  3.820817629425256*^9},
 CellLabel->"Out[1]=",
 CellID->316742852,ExpressionUUID->"7adb9f5f-d672-4198-87a2-231126ed091c"]
}, Open  ]],

Cell["Set a temperature and determine saturation entropies.", "ExampleText",
 CellChangeTimes->{{3.8197177687815685`*^9, 3.819717800038011*^9}, {
  3.8207680831232004`*^9, 3.8207680843802004`*^9}},
 CellID->438734899,ExpressionUUID->"74f2015e-5754-47d5-bfcb-16b1c28047df"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"T", "=", 
   RowBox[{"100", "\[Degree]C"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["D", "satL"], "=", 
   RowBox[{
    RowBox[{"satt", "[", "T", "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"2", ",", "2"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["D", "satV"], "=", 
   RowBox[{
    RowBox[{"satt", "[", "T", "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"3", ",", "2"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox["S", "satL"], "=", 
  RowBox[{
   RowBox[{"entro", "[", 
    RowBox[{"T", ",", 
     SubscriptBox["D", "satL"]}], "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "2"}], "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.819717805817589*^9, 3.8197179895254574`*^9}, {
  3.8197841968838778`*^9, 3.819784199071061*^9}, {3.8197844843604*^9, 
  3.8197844978643*^9}, {3.8207680333099174`*^9, 3.8207680442932096`*^9}},
 CellLabel->"In[2]:=",
 CellID->9550323,ExpressionUUID->"20ff60ae-b65e-467c-8c5c-4bf2c7fb10a2"],

Cell[BoxData[
 TemplateBox[{"23.54975905854682`", 
   RowBox[{
    "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
     "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
   "joules per kelvin mole", 
   FractionBox["\"Joules\"", 
    RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
  "Quantity"]], "Output",
 CellChangeTimes->{3.819784202554745*^9, 3.8197844990610995`*^9, 
  3.820768023978078*^9, 3.820768065805157*^9, 3.8207687623687496`*^9, 
  3.820817651199027*^9},
 CellLabel->"Out[5]=",
 CellID->122336646,ExpressionUUID->"2fb435e6-bb75-473e-8e21-ab964be542e2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubscriptBox["S", "satV"], "=", 
  RowBox[{
   RowBox[{"entro", "[", 
    RowBox[{"T", ",", 
     SubscriptBox["D", "satV"]}], "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "2"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{
  3.819784210575308*^9, {3.820768051340558*^9, 3.8207680602057514`*^9}},
 CellLabel->"In[6]:=",
 CellID->264059589,ExpressionUUID->"94ab7b82-2bb4-4929-b3d1-3aeec0894087"],

Cell[BoxData[
 TemplateBox[{"132.48642731393647`", 
   RowBox[{
    "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
     "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
   "joules per kelvin mole", 
   FractionBox["\"Joules\"", 
    RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
  "Quantity"]], "Output",
 CellChangeTimes->{
  3.8197842117661204`*^9, 3.81978450488251*^9, 3.820768070272739*^9, {
   3.8207687661988935`*^9, 3.8207687849567213`*^9}, 3.8208176558146825`*^9},
 CellLabel->"Out[6]=",
 CellID->234439066,ExpressionUUID->"b950bb20-b90a-43e2-9897-bcd40cc80678"]
}, Open  ]],

Cell[TextData[{
 "Pick an entropy just into the Liquid phase ",
 Cell[BoxData[
  RowBox[{"(", 
   SubscriptBox["S", "V"]}]],ExpressionUUID->
  "e089c770-2524-4d7d-a5ea-f57027b3d1c7"],
 " > ",
 Cell[BoxData[
  SubscriptBox["S", "satV"]],ExpressionUUID->
  "fcf1c40e-59fb-45d6-a596-32482ce1e6c6"],
 "), an entropy at a 50% vapor quality (2-phase entropy), and an entropy well \
into the Vapor phase."
}], "ExampleText",
 CellChangeTimes->{{3.8197180111337204`*^9, 3.8197181117337666`*^9}, {
  3.8198659986239023`*^9, 3.8198660209053164`*^9}, {3.8198660626616783`*^9, 
  3.819866066254072*^9}, {3.820768090619906*^9, 3.820768093540737*^9}, {
  3.820769966691148*^9, 3.8207699946206827`*^9}, {3.8208176893959146`*^9, 
  3.8208177903524714`*^9}},
 CellID->153763687,ExpressionUUID->"8e26dbd0-b877-42c6-b3d1-c1518aeac45a"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  SubscriptBox["S", "L"], "=", 
  RowBox[{"0.99", "*", 
   SubscriptBox["S", "satL"]}]}], "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox["S", 
   RowBox[{"2", "\[Phi]"}]], "=", 
  RowBox[{"0.5", 
   RowBox[{"(", 
    RowBox[{
     SubscriptBox["S", "satL"], "+", 
     SubscriptBox["S", "satV"]}], ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox["S", "V"], "=", 
  RowBox[{"1.1", "*", 
   SubscriptBox["S", "satV"]}]}]}], "Input",
 CellChangeTimes->{{3.8197179042813425`*^9, 3.8197179125572467`*^9}, {
  3.8197180946704063`*^9, 3.819718101357498*^9}, {3.819718167557559*^9, 
  3.8197182635838537`*^9}, {3.819719179590316*^9, 3.819719215726714*^9}, {
  3.8197833301040535`*^9, 3.8197833600869036`*^9}, {3.8197834913031254`*^9, 
  3.819783491663162*^9}, {3.819784107759165*^9, 3.819784108254839*^9}, {
  3.8197843930475073`*^9, 3.8197844201111574`*^9}, {3.820768102324815*^9, 
  3.8207681225322285`*^9}, {3.820768669300217*^9, 3.820768726972229*^9}, {
  3.820768791085136*^9, 3.820768791348172*^9}, {3.820768828436741*^9, 
  3.820768831691786*^9}, {3.8207700059813833`*^9, 3.820770028323099*^9}, {
  3.82077013820368*^9, 3.8207701490840025`*^9}, {3.8207710650840225`*^9, 
  3.820771115955782*^9}, {3.8207713680117226`*^9, 3.820771388052162*^9}},
 CellLabel->"In[8]:=",
 CellID->110293625,ExpressionUUID->"aa419ca2-6bc6-4b2b-8cd0-11c052d0cbc2"],

Cell[BoxData[
 TemplateBox[{"23.31426146796135`", 
   RowBox[{
    "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
     "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
   "joules per kelvin mole", 
   FractionBox["\"Joules\"", 
    RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
  "Quantity"]], "Output",
 CellChangeTimes->{
  3.820768833385028*^9, 3.820770033646062*^9, 3.820770151380598*^9, 
   3.820771122181151*^9, {3.8207713843341026`*^9, 3.8207713893845844`*^9}, 
   3.8208176676969366`*^9},
 CellLabel->"Out[8]=",
 CellID->94590296,ExpressionUUID->"0f77ff5c-ee08-47c2-b1be-7e6f59cffdc0"],

Cell[BoxData[
 TemplateBox[{"78.01809318624164`", 
   RowBox[{
    "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
     "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
   "joules per kelvin mole", 
   FractionBox["\"Joules\"", 
    RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
  "Quantity"]], "Output",
 CellChangeTimes->{
  3.820768833385028*^9, 3.820770033646062*^9, 3.820770151380598*^9, 
   3.820771122181151*^9, {3.8207713843341026`*^9, 3.8207713893845844`*^9}, 
   3.8208176677019725`*^9},
 CellLabel->"Out[9]=",
 CellID->215697584,ExpressionUUID->"46a5c768-4f87-4706-be5e-8ddb8a8d50a4"],

Cell[BoxData[
 TemplateBox[{"145.73507004533013`", 
   RowBox[{
    "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
     "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
   "joules per kelvin mole", 
   FractionBox["\"Joules\"", 
    RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
  "Quantity"]], "Output",
 CellChangeTimes->{
  3.820768833385028*^9, 3.820770033646062*^9, 3.820770151380598*^9, 
   3.820771122181151*^9, {3.8207713843341026`*^9, 3.8207713893845844`*^9}, 
   3.8208176677069097`*^9},
 CellLabel->"Out[10]=",
 CellID->217980371,ExpressionUUID->"7c376fa4-90fe-469e-940b-2d792e6536de"]
}, Open  ]],

Cell[TextData[{
 "Get the fluid properties at the ",
 StyleBox["Liquid",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " state point using ",
 Cell[BoxData[
 "tsflsh"], "InlineFormula",ExpressionUUID->
  "d92619f7-33fb-4fb7-8852-1fb19bd7d882"],
 ", displaying results in a table.  ",
 StyleBox["Note:",
  FontWeight->"Bold"],
 " ",
 Cell[BoxData[
  StyleBox["Dv", "TI"]], "InlineFormula",ExpressionUUID->
  "25be008e-eca5-4928-ac5b-ba0245fb743e"],
 " and ",
 Cell[BoxData[
  StyleBox["Q", "TI"]], "InlineFormula",ExpressionUUID->
  "7a3491fd-548c-4b4d-b342-c4c0bbfb4ca4"],
 " are meaningless in this phase."
}], "ExampleText",
 CellChangeTimes->{{3.8188189157755613`*^9, 3.81881900567849*^9}, {
  3.8190315220697913`*^9, 3.8190315341105947`*^9}, {3.8192622139723945`*^9, 
  3.819262259952448*^9}, {3.819262547181425*^9, 3.8192626258939548`*^9}, {
  3.819262738166749*^9, 3.81926277373265*^9}, {3.819719234879511*^9, 
  3.8197192498943787`*^9}, {3.819720177878738*^9, 3.8197201944095154`*^9}, {
  3.8207681399252315`*^9, 3.820768139949905*^9}, {3.8207683389978065`*^9, 
  3.820768351943836*^9}, {3.820771175851622*^9, 3.8207711806826754`*^9}, {
  3.820817835514725*^9, 3.8208178908327994`*^9}},
 CellID->282389568,ExpressionUUID->"785d273b-30d1-444f-90ba-d6b803c85eab"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{"Apply", "[", 
   RowBox[{"List", ",", 
    RowBox[{"tsflsh", "[", 
     RowBox[{"T", ",", 
      SubscriptBox["S", "L"]}], "]"}], ",", 
    RowBox[{"{", "1", "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{
  3.8190318574161053`*^9, {3.8191275961330013`*^9, 3.819127597011653*^9}, {
   3.8192622692057056`*^9, 3.8192622692944684`*^9}, {3.8192623039907255`*^9, 
   3.819262305549526*^9}, {3.8192626933974867`*^9, 3.819262695100932*^9}, {
   3.8197183214531484`*^9, 3.8197183290458546`*^9}, {3.819719129261859*^9, 
   3.81971913226982*^9}, {3.8197195849746666`*^9, 3.8197195862702065`*^9}, {
   3.820768146397272*^9, 3.820768150383188*^9}, {3.8207711906440363`*^9, 
   3.820771191723179*^9}},
 NumberMarks->False,
 CellLabel->"In[11]:=",
 CellID->55698167,ExpressionUUID->"c6f4aefe-ab4b-4eea-8869-c1d64d210a77"],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {"\<\"P\"\>", 
     TemplateBox[{
      "17180.81857942638`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
      "Quantity"]},
    {"\<\"D\"\>", 
     TemplateBox[{"53.63122223528584`", 
       RowBox[{
        "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"L\""}], "moles per liter", 
       FractionBox["\"Moles\"", "\"Liters\""]},
      "Quantity"]},
    {"\<\"Dl\"\>", 
     TemplateBox[{"53.63122223528584`", 
       RowBox[{
        "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"L\""}], "moles per liter", 
       FractionBox["\"Moles\"", "\"Liters\""]},
      "Quantity"]},
    {"\<\"Dv\"\>", 
     TemplateBox[{"53.63122223528584`", 
       RowBox[{
        "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"L\""}], "moles per liter", 
       FractionBox["\"Moles\"", "\"Liters\""]},
      "Quantity"]},
    {"\<\"xliq\"\>", GridBox[{
       {"1.`"}
      },
      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}}]},
    {"\<\"xvap\"\>", GridBox[{
       {"1.`"}
      },
      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}}]},
    {"\<\"Q\"\>", 
     RowBox[{"-", "5.06261073866225`*^-6"}]},
    {"\<\"U\"\>", 
     TemplateBox[{"7462.911138297364`", 
       RowBox[{
        "\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"mol\""}], "joules per mole", 
       FractionBox["\"Joules\"", "\"Moles\""]},
      "Quantity"]},
    {"\<\"H\"\>", 
     TemplateBox[{"7783.262192466003`", 
       RowBox[{
        "\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"mol\""}], "joules per mole", 
       FractionBox["\"Joules\"", "\"Moles\""]},
      "Quantity"]},
    {"\<\"Cv\"\>", 
     TemplateBox[{"67.42230599905841`", 
       RowBox[{
        "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
         "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
       "joules per kelvin mole", 
       FractionBox["\"Joules\"", 
        RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
      "Quantity"]},
    {"\<\"Cp\"\>", 
     TemplateBox[{"75.27144831324236`", 
       RowBox[{
        "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
         "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
       "joules per kelvin mole", 
       FractionBox["\"Joules\"", 
        RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
      "Quantity"]},
    {"\<\"W\"\>", 
     TemplateBox[{"1579.0251635240818`", 
       RowBox[{
        "\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}],
        "meters per second", 
       FractionBox["\"Meters\"", "\"Seconds\""]},
      "Quantity"]}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  TableForm[{{"P", 
     Quantity[17180.81857942638, "Kilopascals"]}, {"D", 
     Quantity[53.63122223528584, "Liters"^(-1) "Moles"]}, {"Dl", 
     Quantity[53.63122223528584, "Liters"^(-1) "Moles"]}, {"Dv", 
     Quantity[53.63122223528584, "Liters"^(-1) "Moles"]}, {"xliq", {1.}}, {
    "xvap", {1.}}, {"Q", -5.06261073866225*^-6}, {"U", 
     Quantity[7462.911138297364, "Joules"/"Moles"]}, {"H", 
     Quantity[7783.262192466003, "Joules"/"Moles"]}, {"Cv", 
     Quantity[67.42230599905841, "Joules" "Kelvins"^(-1)/"Moles"]}, {"Cp", 
     Quantity[75.27144831324236, "Joules" "Kelvins"^(-1)/"Moles"]}, {"W", 
     Quantity[1579.0251635240818`, "Meters"/"Seconds"]}}]]], "Output",
 CellChangeTimes->{{3.8190318460535097`*^9, 3.819031861713614*^9}, 
   3.819031902259221*^9, 3.819127498194881*^9, 3.819127605696402*^9, 
   3.819262328494203*^9, 3.819262521452256*^9, 3.8192626993156605`*^9, 
   3.819262980225506*^9, 3.819263012292761*^9, {3.819263374903174*^9, 
   3.8192633922916794`*^9}, 3.8192634234453773`*^9, 3.8197188443255725`*^9, 
   3.819719136508456*^9, {3.819719573435486*^9, 3.8197195874600916`*^9}, 
   3.819719763718897*^9, 3.8197844047382536`*^9, 3.8197845127435236`*^9, 
   3.820768165442356*^9, 3.820768676282946*^9, 3.8207687111491523`*^9, {
   3.8207687791579704`*^9, 3.8207687995094676`*^9}, 3.8207700658361816`*^9, 
   3.820771195869092*^9, 3.8207713994516463`*^9, 3.820817813230321*^9},
 CellLabel->"Out[11]//TableForm=",
 CellID->3285396,ExpressionUUID->"23366559-7b1c-4809-adca-445861bd5494"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "37296849-646c-47f3-a1ab-7f8123ea62e6"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->5420675,ExpressionUUID->"6fbfc7ed-6fa6-4b34-8a54-78982ec4e154"],

Cell[TextData[{
 "Get the fluid properties at the ",
 StyleBox["2-Phase",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " state point using ",
 Cell[BoxData[
 "tsflsh"], "InlineFormula",ExpressionUUID->
  "392bdbd8-60f4-48f6-9628-5866d78b04b5"],
 ", displaying results in a table."
}], "ExampleText",
 CellChangeTimes->{{3.8188189157755613`*^9, 3.81881900567849*^9}, {
  3.8190315220697913`*^9, 3.8190315341105947`*^9}, {3.8192622139723945`*^9, 
  3.819262259952448*^9}, {3.819262547181425*^9, 3.8192626258939548`*^9}, {
  3.819262738166749*^9, 3.81926277373265*^9}, {3.819262852061205*^9, 
  3.8192628605086184`*^9}, {3.819263765788982*^9, 3.819263794012516*^9}, {
  3.8197200869019456`*^9, 3.8197201329817595`*^9}, {3.8207682981887217`*^9, 
  3.8207683315705986`*^9}},
 CellID->621154184,ExpressionUUID->"c6e0b23f-ae87-4481-964a-1f4d7e303ccf"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{"Apply", "[", 
   RowBox[{"List", ",", 
    RowBox[{"tsflsh", "[", 
     RowBox[{"T", ",", 
      SubscriptBox["S", 
       RowBox[{"2", "\[Phi]"}]]}], "]"}], ",", 
    RowBox[{"{", "1", "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{
  3.8190318574161053`*^9, {3.8191275961330013`*^9, 3.819127597011653*^9}, {
   3.8192622692057056`*^9, 3.8192622692944684`*^9}, {3.8192623039907255`*^9, 
   3.819262305549526*^9}, {3.8192626933974867`*^9, 3.819262695100932*^9}, {
   3.819262828437373*^9, 3.8192628357248874`*^9}, {3.819720107431061*^9, 
   3.8197201132544956`*^9}, {3.8207683606217327`*^9, 3.8207683644442167`*^9}},
 NumberMarks->False,
 CellLabel->"In[12]:=",
 CellID->38521166,ExpressionUUID->"f2cad8b5-ae00-4168-bfe5-b0d65a8351ef"],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {"\<\"P\"\>", 
     TemplateBox[{
      "101.41799666329449`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
      "Quantity"]},
    {"\<\"D\"\>", 
     TemplateBox[{"0.06636555914807066`", 
       RowBox[{
        "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"L\""}], "moles per liter", 
       FractionBox["\"Moles\"", "\"Liters\""]},
      "Quantity"]},
    {"\<\"Dl\"\>", 
     TemplateBox[{"53.19649153175941`", 
       RowBox[{
        "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"L\""}], "moles per liter", 
       FractionBox["\"Moles\"", "\"Liters\""]},
      "Quantity"]},
    {"\<\"Dv\"\>", 
     TemplateBox[{"0.03320349116791658`", 
       RowBox[{
        "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"L\""}], "moles per liter", 
       FractionBox["\"Moles\"", "\"Liters\""]},
      "Quantity"]},
    {"\<\"xliq\"\>", GridBox[{
       {"1.`"}
      },
      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}}]},
    {"\<\"xvap\"\>", GridBox[{
       {"1.`"}
      },
      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}}]},
    {"\<\"Q\"\>", "0.49999999999999994`"},
    {"\<\"U\"\>", 
     TemplateBox[{"26348.07752927388`", 
       RowBox[{
        "\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"mol\""}], "joules per mole", 
       FractionBox["\"Joules\"", "\"Moles\""]},
      "Quantity"]},
    {"\<\"H\"\>", 
     TemplateBox[{"27876.249640859965`", 
       RowBox[{
        "\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"mol\""}], "joules per mole", 
       FractionBox["\"Joules\"", "\"Moles\""]},
      "Quantity"]},
    {"\<\"Cv\"\>", 
     TemplateBox[{
       RowBox[{"-", "9.99999`*^6"}], 
       RowBox[{
        "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
         "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
       "joules per kelvin mole", 
       FractionBox["\"Joules\"", 
        RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
      "Quantity"]},
    {"\<\"Cp\"\>", 
     TemplateBox[{
       RowBox[{"-", "9.99998`*^6"}], 
       RowBox[{
        "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
         "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
       "joules per kelvin mole", 
       FractionBox["\"Joules\"", 
        RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
      "Quantity"]},
    {"\<\"W\"\>", 
     TemplateBox[{
       RowBox[{"-", "9.99998`*^6"}], 
       RowBox[{
        "\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}],
        "meters per second", 
       FractionBox["\"Meters\"", "\"Seconds\""]},
      "Quantity"]}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  TableForm[{{"P", 
     Quantity[101.41799666329449`, "Kilopascals"]}, {"D", 
     Quantity[0.06636555914807066, "Liters"^(-1) "Moles"]}, {"Dl", 
     Quantity[53.19649153175941, "Liters"^(-1) "Moles"]}, {"Dv", 
     Quantity[0.03320349116791658, "Liters"^(-1) "Moles"]}, {"xliq", {1.}}, {
    "xvap", {1.}}, {"Q", 0.49999999999999994`}, {"U", 
     Quantity[26348.07752927388, "Joules"/"Moles"]}, {"H", 
     Quantity[27876.249640859965`, "Joules"/"Moles"]}, {"Cv", 
     Quantity[-9.99999*^6, "Joules" "Kelvins"^(-1)/"Moles"]}, {"Cp", 
     Quantity[-9.99998*^6, "Joules" "Kelvins"^(-1)/"Moles"]}, {"W", 
     Quantity[-9.99998*^6, "Meters"/"Seconds"]}}]]], "Output",
 CellChangeTimes->{3.8197201367427044`*^9, 3.8197845179306617`*^9, 
  3.8207683759339027`*^9, 3.820770071181924*^9, 3.8208179137076564`*^9},
 CellLabel->"Out[12]//TableForm=",
 CellID->414893323,ExpressionUUID->"0624fa56-7026-4e99-8cb1-bfe6bf7f50de"]
}, Open  ]],

Cell[TextData[{
 StyleBox["Note:",
  FontWeight->"Bold"],
 " ",
 Cell[BoxData[
  StyleBox["Dl", "TI"]], "InlineFormula",ExpressionUUID->
  "43f6cc47-0242-41b3-ac07-acccb5e8f40d"],
 ", ",
 Cell[BoxData[
  StyleBox["Dv", "TI"]], "InlineFormula",ExpressionUUID->
  "14f2c541-83ca-4f8f-ad29-50a2fced29b6"],
 " and ",
 Cell[BoxData[
  StyleBox["Q", "TI"]], "InlineFormula",ExpressionUUID->
  "61ac6823-272f-4da4-a8e3-dc50f0838b52"],
 " now have the expected values in the 2-phase region; however, ",
 Cell[BoxData[
  StyleBox["Cv", "TI"]], "InlineFormula",ExpressionUUID->
  "486d294b-a59d-4d79-adf4-19ed3e0075e7"],
 ", ",
 Cell[BoxData[
  StyleBox["Cp", "TI"]], "InlineFormula",ExpressionUUID->
  "4251a064-3d58-4123-b8ff-240c7bd04848"],
 ", and ",
 Cell[BoxData[
  StyleBox["W", "TI"]], "InlineFormula",ExpressionUUID->
  "3a588bc1-cbbb-472e-a3e5-55ba49e7ddc9"],
 " are undefined for a 2-phase fluid and the values returned are meaningless."
}], "ExampleText",
 CellChangeTimes->{{3.8188213059350233`*^9, 3.8188213514064236`*^9}, {
  3.8190319817516465`*^9, 3.819032019014012*^9}, {3.8190322239231033`*^9, 
  3.819032377640106*^9}, {3.819170473120638*^9, 3.819170575110926*^9}, {
  3.819263803276743*^9, 3.8192638704710727`*^9}, {3.8192639199886665`*^9, 
  3.8192640865104036`*^9}, {3.8194463973599405`*^9, 3.8194464075287447`*^9}},
 CellID->164614660,ExpressionUUID->"da4baa9f-1059-48b8-aa5a-a3ac0b362092"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "f361bd4d-202c-415f-98c7-6012e782fe2e"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->455998439,ExpressionUUID->"ba156930-d3b1-4897-8fd1-9bd447e77b69"],

Cell[TextData[{
 "Get the fluid properties at the ",
 StyleBox["Vapor",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " state point using ",
 Cell[BoxData[
 "tsflsh"], "InlineFormula",ExpressionUUID->
  "1d65cc60-6f59-400b-8974-147017cc787d"],
 ", displaying results in a table.  ",
 StyleBox["Note:",
  FontWeight->"Bold"],
 " ",
 Cell[BoxData[
  StyleBox["Dl", "TI"]], "InlineFormula",ExpressionUUID->
  "9361a6a5-0cad-4ab4-a9e2-c38a7a9d5213"],
 " and ",
 Cell[BoxData[
  StyleBox["Q", "TI"]], "InlineFormula",ExpressionUUID->
  "25fc18e1-68c1-4c2b-8ac6-ae16238e0f7f"],
 " are meaningless in this phase."
}], "ExampleText",
 CellChangeTimes->{{3.8188189157755613`*^9, 3.81881900567849*^9}, {
  3.8190315220697913`*^9, 3.8190315341105947`*^9}, {3.8192622139723945`*^9, 
  3.819262259952448*^9}, {3.819262547181425*^9, 3.8192626258939548`*^9}, {
  3.819262738166749*^9, 3.81926277373265*^9}, {3.819719234879511*^9, 
  3.8197192498943787`*^9}, {3.819720177878738*^9, 3.8197201944095154`*^9}, {
  3.8207681399252315`*^9, 3.820768139949905*^9}, {3.8207683389978065`*^9, 
  3.820768351943836*^9}},
 CellID->7515539,ExpressionUUID->"e8a3c0c9-2d6b-4f36-b961-5212b0e4d1bf"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{"Apply", "[", 
   RowBox[{"List", ",", 
    RowBox[{"tsflsh", "[", 
     RowBox[{"T", ",", 
      SubscriptBox["S", "V"]}], "]"}], ",", 
    RowBox[{"{", "1", "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{
  3.8190318574161053`*^9, {3.8191275961330013`*^9, 3.819127597011653*^9}, {
   3.8192622692057056`*^9, 3.8192622692944684`*^9}, {3.8192623039907255`*^9, 
   3.819262305549526*^9}, {3.8192626933974867`*^9, 3.819262695100932*^9}, {
   3.8197183214531484`*^9, 3.8197183290458546`*^9}, {3.819719129261859*^9, 
   3.81971913226982*^9}, {3.8197195849746666`*^9, 3.8197195862702065`*^9}, {
   3.820768146397272*^9, 3.820768150383188*^9}},
 NumberMarks->False,
 CellLabel->"In[13]:=",
 CellID->127986277,ExpressionUUID->"7bf86d32-0a22-4986-87ff-8e3264b3bc25"],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {"\<\"P\"\>", 
     TemplateBox[{
      "21.63896475234255`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
      "Quantity"]},
    {"\<\"D\"\>", 
     TemplateBox[{"0.0069969084385546115`", 
       RowBox[{
        "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"L\""}], "moles per liter", 
       FractionBox["\"Moles\"", "\"Liters\""]},
      "Quantity"]},
    {"\<\"Dl\"\>", 
     TemplateBox[{"0.0069969084385546115`", 
       RowBox[{
        "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"L\""}], "moles per liter", 
       FractionBox["\"Moles\"", "\"Liters\""]},
      "Quantity"]},
    {"\<\"Dv\"\>", 
     TemplateBox[{"0.0069969084385546115`", 
       RowBox[{
        "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"L\""}], "moles per liter", 
       FractionBox["\"Moles\"", "\"Liters\""]},
      "Quantity"]},
    {"\<\"xliq\"\>", GridBox[{
       {"1.`"}
      },
      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}}]},
    {"\<\"xvap\"\>", GridBox[{
       {"1.`"}
      },
      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}}]},
    {"\<\"Q\"\>", "4.747790964847411`"},
    {"\<\"U\"\>", 
     TemplateBox[{"45296.640753523825`", 
       RowBox[{
        "\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"mol\""}], "joules per mole", 
       FractionBox["\"Joules\"", "\"Moles\""]},
      "Quantity"]},
    {"\<\"H\"\>", 
     TemplateBox[{"48389.28730483594`", 
       RowBox[{
        "\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"mol\""}], "joules per mole", 
       FractionBox["\"Joules\"", "\"Moles\""]},
      "Quantity"]},
    {"\<\"Cv\"\>", 
     TemplateBox[{"26.155052988126556`", 
       RowBox[{
        "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
         "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
       "joules per kelvin mole", 
       FractionBox["\"Joules\"", 
        RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
      "Quantity"]},
    {"\<\"Cp\"\>", 
     TemplateBox[{"34.67796767345808`", 
       RowBox[{
        "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
         "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
       "joules per kelvin mole", 
       FractionBox["\"Joules\"", 
        RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
      "Quantity"]},
    {"\<\"W\"\>", 
     TemplateBox[{"476.31637696168644`", 
       RowBox[{
        "\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}],
        "meters per second", 
       FractionBox["\"Meters\"", "\"Seconds\""]},
      "Quantity"]}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  TableForm[{{"P", 
     Quantity[21.63896475234255, "Kilopascals"]}, {"D", 
     Quantity[0.0069969084385546115`, "Liters"^(-1) "Moles"]}, {"Dl", 
     Quantity[0.0069969084385546115`, "Liters"^(-1) "Moles"]}, {"Dv", 
     Quantity[0.0069969084385546115`, "Liters"^(-1) "Moles"]}, {
    "xliq", {1.}}, {"xvap", {1.}}, {"Q", 4.747790964847411}, {"U", 
     Quantity[45296.640753523825`, "Joules"/"Moles"]}, {"H", 
     Quantity[48389.28730483594, "Joules"/"Moles"]}, {"Cv", 
     Quantity[26.155052988126556`, "Joules" "Kelvins"^(-1)/"Moles"]}, {"Cp", 
     Quantity[34.67796767345808, "Joules" "Kelvins"^(-1)/"Moles"]}, {"W", 
     Quantity[476.31637696168644`, "Meters"/"Seconds"]}}]]], "Output",
 CellChangeTimes->{{3.8190318460535097`*^9, 3.819031861713614*^9}, 
   3.819031902259221*^9, 3.819127498194881*^9, 3.819127605696402*^9, 
   3.819262328494203*^9, 3.819262521452256*^9, 3.8192626993156605`*^9, 
   3.819262980225506*^9, 3.819263012292761*^9, {3.819263374903174*^9, 
   3.8192633922916794`*^9}, 3.8192634234453773`*^9, 3.8197188443255725`*^9, 
   3.819719136508456*^9, {3.819719573435486*^9, 3.8197195874600916`*^9}, 
   3.819719763718897*^9, 3.8197844047382536`*^9, 3.8197845127435236`*^9, 
   3.820768165442356*^9, 3.820768676282946*^9, 3.8207687111491523`*^9, {
   3.8207687791579704`*^9, 3.8207687995094676`*^9}, 3.8207700658361816`*^9, 
   3.8208179397789097`*^9},
 CellLabel->"Out[13]//TableForm=",
 CellID->202632095,ExpressionUUID->"79156811-fa65-4dc4-878a-7653a02069d4"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "dd0b942b-e2a9-4c43-ac1e-112ea74c453d"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->745475516,ExpressionUUID->"d006206f-6877-4a9d-8d18-b5639b386893"],

Cell[TextData[{
 "At the 2-phase entropy, there is also a root in the ",
 StyleBox["Liquid",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " phase.  We can find that root using ",
 Cell[BoxData[
 "tsflsh"], "InlineFormula",ExpressionUUID->
  "d736d217-133b-4e67-8e88-feead154ec4c"],
 ", setting the optional ",
 Cell[BoxData[
  StyleBox["kr", "TI"]], "InlineFormula",ExpressionUUID->
  "5735c099-0f07-4ea0-ac92-2414ecf039fa"],
 " parameter to 2.  However, on the P-S diagram for most fluids in the liquid \
region, the isotherms are nearly vertical and tail to the left making all \
results single valued.  A fold-back may occur, as it does on the P-H diagram, \
but this occurs at very high pressures that are well above the upper pressure \
limit.  In the case of water, shown here, the second root at the 2-phase \
point does not exist and throws an error."
}], "ExampleText",
 CellChangeTimes->{{3.8188189157755613`*^9, 3.81881900567849*^9}, {
  3.8190315220697913`*^9, 3.8190315341105947`*^9}, {3.8192622139723945`*^9, 
  3.819262259952448*^9}, {3.819262547181425*^9, 3.8192626258939548`*^9}, {
  3.819262738166749*^9, 3.81926277373265*^9}, {3.819262852061205*^9, 
  3.8192628605086184`*^9}, {3.819263765788982*^9, 3.819263794012516*^9}, {
  3.8197200869019456`*^9, 3.8197201329817595`*^9}, {3.8197834295990777`*^9, 
  3.8197834323746567`*^9}, {3.819783664066251*^9, 3.81978393632745*^9}, {
  3.8197839674233236`*^9, 3.8197840192946534`*^9}, {3.8207685483655815`*^9, 
  3.820768549459612*^9}, {3.8207694217228875`*^9, 3.8207694363461914`*^9}, {
  3.82081800104909*^9, 3.8208180579449406`*^9}, {3.820818097473235*^9, 
  3.8208183370336075`*^9}},
 CellID->172987855,ExpressionUUID->"f3e66d8a-1bea-46c2-a338-f9bab4bc8ed4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{"Apply", "[", 
   RowBox[{"List", ",", 
    RowBox[{"tsflsh", "[", 
     RowBox[{"T", ",", 
      SubscriptBox["S", 
       RowBox[{"2", "\[Phi]"}]], ",", "2"}], "]"}], ",", 
    RowBox[{"{", "1", "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{
  3.8190318574161053`*^9, {3.8191275961330013`*^9, 3.819127597011653*^9}, {
   3.8192622692057056`*^9, 3.8192622692944684`*^9}, {3.8192623039907255`*^9, 
   3.819262305549526*^9}, {3.8192626933974867`*^9, 3.819262695100932*^9}, {
   3.819262828437373*^9, 3.8192628357248874`*^9}, {3.819720107431061*^9, 
   3.8197201132544956`*^9}, {3.819783441063428*^9, 3.81978344359167*^9}, {
   3.8197835481750965`*^9, 3.819783575671582*^9}, {3.820768475692696*^9, 
   3.820768483548444*^9}},
 NumberMarks->False,
 CellLabel->"In[71]:=",
 CellID->6279350,ExpressionUUID->"7207801b-39e4-4ff5-ab82-9b31ddadde31"],

Cell[BoxData[
 TemplateBox[{
  "tsflsh", "refprop", 
   "\"\\!\\(\\*RowBox[{\\\"\\\\\\\"[TSFLSH error 4] One or more inputs are \
out of range; Pressure below zero: P = -0.265238 MPa.                         \
                                                                              \
                                                          \\\\\\\"\\\"}]\\)\"\
", 2, 71, 11, 33552053660808864739, "Local", "RefpropLink`tsflsh"},
  "MessageTemplate2"]], "Message", "MSG",
 CellChangeTimes->{3.8207700813908854`*^9},
 CellLabel->"During evaluation of In[71]:=",
 CellID->222633564,ExpressionUUID->"38dc6b82-bbee-4e93-9f3f-e76a46370859"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     RowBox[{"\<\"ierr\"\>", "\[Rule]", "4"}]}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.8197834660855083`*^9, 3.819783533755629*^9, 
  3.819783581229724*^9, 3.819784534987062*^9, 3.8207684901811514`*^9, 
  3.8207700814327745`*^9},
 CellLabel->"Out[71]//TableForm=",
 CellID->26449207,ExpressionUUID->"16234029-a92f-4cb2-8e83-7e7322589081"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "97b95c24-9759-424f-80d1-c4a8074e286a"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->599206118,ExpressionUUID->"1ed41320-a37d-4811-bc76-a3abf71651a9"],

Cell[TextData[{
 "Note that if ",
 Cell[BoxData[
  StyleBox["t", "TI"]], "InlineFormula",ExpressionUUID->
  "83abff11-5f77-4e18-82b9-ec99f80a6b6d"],
 " and ",
 Cell[BoxData[
  StyleBox["s", "TI"]], "InlineFormula",ExpressionUUID->
  "ee06b07c-a3a2-42e4-b364-558573b21225"],
 " are passed as a non-Quantity parameter (but converted to the required \
REFPROP units), then non-Quantity values will be retuned from the ",
 Cell[BoxData[
 "tsflsh"], "InlineFormula",ExpressionUUID->
  "50e6a961-2cd1-49b8-8b68-f2363a6508ed"],
 " function with unit \"hints\" in the ruled list."
}], "ExampleText",
 CellChangeTimes->{{3.818908953564636*^9, 3.8189090055166936`*^9}, {
  3.8189092095072694`*^9, 3.818909225843593*^9}, {3.8191282855366015`*^9, 
  3.8191283218524947`*^9}, {3.819128432907544*^9, 3.819128442323374*^9}, {
  3.8192641124300957`*^9, 3.8192641135092106`*^9}, {3.819720270128131*^9, 
  3.8197202909095488`*^9}, {3.819784591977703*^9, 3.8197846132159085`*^9}, {
  3.8208183507080107`*^9, 3.8208183888580184`*^9}, {3.8208184294654293`*^9, 
  3.8208184384503765`*^9}},
 CellID->216850838,ExpressionUUID->"0d6b501f-0731-4bd0-854c-0ffa8809b378"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Tmag", "=", 
   RowBox[{"QuantityMagnitude", "[", 
    RowBox[{"T", ",", "K"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Smag", "=", 
   RowBox[{"QuantityMagnitude", "[", 
    RowBox[{
     SubscriptBox["S", "V"], ",", 
     RowBox[{
      RowBox[{"J", "/", "mol"}], "/", "K"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"TableForm", "[", 
  RowBox[{"Apply", "[", 
   RowBox[{"List", ",", 
    RowBox[{"tsflsh", "[", 
     RowBox[{"Tmag", ",", "Smag"}], "]"}], ",", 
    RowBox[{"{", "1", "}"}]}], "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.8189092343119154`*^9, 3.8189092622203283`*^9}, {
  3.8191283379404774`*^9, 3.8191284187474084`*^9}, {3.819264124684332*^9, 
  3.8192641541804595`*^9}, {3.8197203176790085`*^9, 3.8197203186952915`*^9}, {
  3.8197207210496836`*^9, 3.8197207773275156`*^9}, {3.8208184455613856`*^9, 
  3.8208184679295673`*^9}, {3.8208185013391323`*^9, 3.820818514569718*^9}},
 CellLabel->"In[17]:=",
 CellID->398372668,ExpressionUUID->"74e67327-a7e5-4799-86e8-ccb91cb6c7e2"],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {"\<\"P [kPa]\"\>", "21.63896475234255`"},
    {"\<\"D [mol/L]\"\>", "0.0069969084385546115`"},
    {"\<\"Dl [mol/L]\"\>", "0.0069969084385546115`"},
    {"\<\"Dv [mol/L]\"\>", "0.0069969084385546115`"},
    {"\<\"xliq\"\>", GridBox[{
       {"1.`"}
      },
      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}}]},
    {"\<\"xvap\"\>", GridBox[{
       {"1.`"}
      },
      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}}]},
    {"\<\"Q\"\>", "4.747790964847411`"},
    {"\<\"U [J/mol]\"\>", "45296.640753523825`"},
    {"\<\"H [J/mol]\"\>", "48389.28730483594`"},
    {"\<\"Cv [J/mol-K]\"\>", "26.155052988126556`"},
    {"\<\"Cp [J/mol-K]\"\>", "34.67796767345808`"},
    {"\<\"W [m/s]\"\>", "476.31637696168644`"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  TableForm[{{"P [kPa]", 21.63896475234255}, {
    "D [mol/L]", 0.0069969084385546115`}, {
    "Dl [mol/L]", 0.0069969084385546115`}, {
    "Dv [mol/L]", 0.0069969084385546115`}, {"xliq", {1.}}, {"xvap", {1.}}, {
    "Q", 4.747790964847411}, {"U [J/mol]", 45296.640753523825`}, {
    "H [J/mol]", 48389.28730483594}, {"Cv [J/mol-K]", 26.155052988126556`}, {
    "Cp [J/mol-K]", 34.67796767345808}, {
    "W [m/s]", 476.31637696168644`}}]]], "Output",
 CellChangeTimes->{
  3.818909264671736*^9, {3.8191283966544557`*^9, 3.8191284196310396`*^9}, 
   3.819264163102603*^9, {3.819720748656164*^9, 3.819720778640035*^9}, 
   3.8197845468214226`*^9, 3.820818476512624*^9, 3.8208185179706516`*^9},
 CellLabel->"Out[19]//TableForm=",
 CellID->451914167,ExpressionUUID->"e8dbaa21-1472-4e97-a32d-f843d343978a"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "5ff8fb10-6503-4ad9-aee6-1a8e1e4863a4"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->508130048,ExpressionUUID->"d0420ffd-6d6b-4fac-8387-6b010b2abec7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Mixtures", "ExampleSubsection",ExpressionUUID->
   "7d9d0f49-1014-4d48-9c7c-4703791f5b9b"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.8185037409217396`*^9, 3.8185037422332306`*^9}},
 CellID->450938995,ExpressionUUID->"47d72ee1-bac2-4f8c-9b6d-0c8b35744424"],

Cell[TextData[{
 "Load mixture components using ",
 Cell[BoxData[
  ButtonBox["setmix",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/Setmix"]], "InlineFormula",
  ExpressionUUID->"76212357-1bb9-496d-9768-994fc17e3eae"],
 ", capturing the bulk mole fractions returned."
}], "ExampleText",
 CellChangeTimes->{{3.818503753065239*^9, 3.8185037615884485`*^9}, {
  3.8198667422562428`*^9, 3.8198668197540216`*^9}, {3.8198669115355716`*^9, 
  3.819866948478897*^9}},
 CellID->58646033,ExpressionUUID->"a3993400-322c-447f-aaa0-9cf817b87fec"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    SubscriptBox["hFluids", "Air"], ",", 
    SubscriptBox["z", "Air"]}], "}"}], "=", 
  RowBox[{
   RowBox[{"setmix", "[", "\"\<AIR.MIX\>\"", "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "2"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8193692499332485`*^9, 3.819369265393936*^9}, {
  3.81936997358829*^9, 3.8193699973058715`*^9}, {3.8193714064349923`*^9, 
  3.8193714202505083`*^9}, {3.819438996330527*^9, 3.8194390142097187`*^9}, {
  3.8194390620497975`*^9, 3.8194390681454997`*^9}, {3.8194391433872805`*^9, 
  3.819439144273913*^9}, {3.819439999010975*^9, 3.819440000129983*^9}, {
  3.8194420556432285`*^9, 3.819442064105628*^9}},
 CellLabel->"In[23]:=",
 CellID->8141322,ExpressionUUID->"dcb757b5-c599-4a06-818e-0d640b82640e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"NITROGEN\"\>", ",", "\<\"ARGON\"\>", ",", "\<\"OXYGEN\"\>"}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.7812`", ",", "0.0092`", ",", "0.2096`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.8185038267192945`*^9, 3.819055757362919*^9, 
  3.819264891338369*^9, 3.8193078417560415`*^9, 3.8194435850359507`*^9, 
  3.8198672317752914`*^9, 3.819867768820126*^9, 3.8198680573928432`*^9, 
  3.819950766112818*^9, 3.820818695986576*^9},
 CellLabel->"Out[23]=",
 CellID->238592046,ExpressionUUID->"bbb29d8d-46ce-4b85-89fe-06587994078b"]
}, Open  ]],

Cell["\<\
Specify a state points at atmospheric pressure, providing the tertiary molar \
composition for Air in the vapor phase.\
\>", "ExampleText",
 CellChangeTimes->{{3.8185038635129395`*^9, 3.818503880057673*^9}, {
  3.8187504448940525`*^9, 3.8187504593882914`*^9}, {3.8187507437330084`*^9, 
  3.818750745660825*^9}, {3.8187510155641294`*^9, 3.8187510198446827`*^9}, {
  3.818751559196535*^9, 3.8187515604212313`*^9}, {3.8187519850867167`*^9, 
  3.81875198808869*^9}, {3.8192644531889396`*^9, 3.819264490436343*^9}, {
  3.8192647949401283`*^9, 3.8192648024450607`*^9}, {3.8192650099482164`*^9, 
  3.819265057756382*^9}, {3.819308018303975*^9, 3.819308020935944*^9}, {
  3.8194438933206234`*^9, 3.8194438959446063`*^9}},
 CellID->728165588,ExpressionUUID->"c7b3fbee-7371-4af4-84a8-ae19597ad24b"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"P", "=", 
   RowBox[{"1", "atm"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    SubscriptBox["T", "sat"], ",", 
    SubscriptBox["D", "satL"], ",", 
    SubscriptBox["D", "satV"], ",", "x", ",", "y"}], "}"}], "=", 
  RowBox[{
   RowBox[{"satp", "[", 
    RowBox[{"P", ",", 
     SubscriptBox["z", "Air"], ",", "2"}], "]"}], " ", "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "2"}], "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.8185039121917796`*^9, 3.8185039651431913`*^9}, 
   3.81875060766185*^9, {3.818750757669739*^9, 3.8187507597671223`*^9}, {
   3.8187509497102375`*^9, 3.818750949797014*^9}, {3.8187510280377755`*^9, 
   3.818751043781706*^9}, 3.8187512109337626`*^9, {3.8187512953570166`*^9, 
   3.81875129585369*^9}, {3.8187515278613214`*^9, 3.818751547742134*^9}, {
   3.8192648114530025`*^9, 3.8192649314850492`*^9}, {3.819264985773856*^9, 
   3.819264987909147*^9}, {3.81926511098209*^9, 3.819265134141136*^9}, {
   3.819307810200428*^9, 3.819307836456219*^9}, {3.819308000641202*^9, 
   3.8193080011278744`*^9}, {3.8194435919454713`*^9, 
   3.8194435975534754`*^9}, {3.8198673806711345`*^9, 3.819867425158167*^9}, {
   3.8198674855656366`*^9, 3.819867486357505*^9}, {3.8198680848064995`*^9, 
   3.819868095038165*^9}, {3.819950667256213*^9, 3.8199506714799185`*^9}, {
   3.819950737360737*^9, 3.8199507420162888`*^9}},
 CellLabel->"In[24]:=",
 CellID->109800155,ExpressionUUID->"d2ebbbed-1ec0-4f75-9c8e-9d78ced963f8"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TemplateBox[{"81.74844596597728`", "\"K\"", "kelvins", "\"Kelvins\""},
    "Quantity"], ",", 
   TemplateBox[{"32.50181040661752`", 
     RowBox[{
      "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"L\""}],
      "moles per liter", 
     FractionBox["\"Moles\"", "\"Liters\""]},
    "Quantity"], ",", 
   TemplateBox[{"0.1549499960055466`", 
     RowBox[{
      "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"L\""}],
      "moles per liter", 
     FractionBox["\"Moles\"", "\"Liters\""]},
    "Quantity"], ",", 
   RowBox[{"{", 
    RowBox[{
    "0.47200576589409293`", ",", "0.01460132146438331`", ",", 
     "0.5133929126415238`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.7812`", ",", "0.0092`", ",", "0.2096`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.8192648978499575`*^9, 3.8192649331764975`*^9}, 
   3.8192649910906687`*^9, {3.819265113909234*^9, 3.8192651351733837`*^9}, 
   3.8193078456426563`*^9, 3.8194436036222486`*^9, 3.8198672362353635`*^9, 
   3.81986749135414*^9, 3.819867601319038*^9, 3.81986777553913*^9, {
   3.819868078467479*^9, 3.819868098055069*^9}, 3.8199507740216684`*^9, {
   3.8208186901970873`*^9, 3.820818701907771*^9}},
 CellLabel->"Out[25]=",
 CellID->700776054,ExpressionUUID->"00726dac-e389-43a4-9aa8-e375197d4753"]
}, Open  ]],

Cell[TextData[{
 "Calculate the saturation entropies using ",
 Cell[BoxData[
  ButtonBox["entro",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/Entro"]], "InlineFormula",
  ExpressionUUID->"42c203c9-5f13-4d89-a259-d10c69a283cb"],
 " at the saturation density values."
}], "ExampleText",
 CellChangeTimes->{{3.819867310311281*^9, 3.819867349118514*^9}, {
  3.819868152203263*^9, 3.819868159158663*^9}, {3.8208185918490877`*^9, 
  3.820818659073321*^9}},
 CellID->217969826,ExpressionUUID->"f448e8d5-62fc-4d97-a77e-8b471bc92d7e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubscriptBox["S", "satL"], "=", 
  RowBox[{
   RowBox[{"entro", "[", 
    RowBox[{
     SubscriptBox["T", "sat"], ",", 
     SubscriptBox["D", "satL"], ",", 
     SubscriptBox["z", "Air"]}], "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "2"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8192651473308687`*^9, 3.8192655535566597`*^9}, {
  3.8192656192689505`*^9, 3.819265647901389*^9}, {3.8194436094187474`*^9, 
  3.819443626505047*^9}, {3.819867024542484*^9, 3.819867027446746*^9}, {
  3.8198671305280757`*^9, 3.819867254190379*^9}, {3.819867507958708*^9, 
  3.8198675851423283`*^9}, {3.8198681194618506`*^9, 3.81986812200605*^9}, {
  3.8208186004620547`*^9, 3.8208186018174314`*^9}, {3.820818668577902*^9, 
  3.82081866869858*^9}},
 CellLabel->"In[26]:=",
 CellID->64348709,ExpressionUUID->"7ce26b85-46d8-45b9-908c-687d4e67e57f"],

Cell[BoxData[
 TemplateBox[{"82.6172577254445`", 
   RowBox[{
    "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
     "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
   "joules per kelvin mole", 
   FractionBox["\"Joules\"", 
    RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
  "Quantity"]], "Output",
 CellChangeTimes->{
  3.819265648890772*^9, 3.8192658827095623`*^9, 3.819307849566168*^9, 
   3.8194436549061193`*^9, 3.819867222864149*^9, 3.819867258102914*^9, 
   3.8198675876466026`*^9, 3.8198677900273857`*^9, {3.819868110624483*^9, 
   3.819868123486088*^9}, 3.819950807774436*^9, {3.820818678683875*^9, 
   3.8208187060706406`*^9}},
 CellLabel->"Out[26]=",
 CellID->120885286,ExpressionUUID->"4a43f73e-0110-470b-bbf3-33e33a193fff"]
}, Open  ]],

Cell[TextData[{
 StyleBox["Note: The liquid enthalpy is negative, as it a ",
  FontSlant->"Italic"],
 StyleBox["relative",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 StyleBox[" quantity and is below the reference state.",
  FontSlant->"Italic"]
}], "ExampleText",
 CellChangeTimes->{{3.819868457158037*^9, 3.819868518892973*^9}},
 CellID->436747077,ExpressionUUID->"c6787323-f77f-41d2-9c12-352ee0f3f8d1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubscriptBox["S", "satV"], "=", 
  RowBox[{
   RowBox[{"entro", "[", 
    RowBox[{
     SubscriptBox["T", "sat"], ",", 
     SubscriptBox["D", "satV"], ",", 
     SubscriptBox["z", "Air"]}], "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "2"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8198681662078114`*^9, 3.8198681997980785`*^9}, {
  3.8208187104898205`*^9, 3.820818716305241*^9}},
 CellLabel->"In[27]:=",
 CellID->399679268,ExpressionUUID->"1ac0c1d8-3cf4-4ef8-9bad-1adbe3681f7e"],

Cell[BoxData[
 TemplateBox[{"160.5092245491207`", 
   RowBox[{
    "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
     "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
   "joules per kelvin mole", 
   FractionBox["\"Joules\"", 
    RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
  "Quantity"]], "Output",
 CellChangeTimes->{3.819868202378151*^9, 3.819950812403026*^9, 
  3.8208187190918193`*^9},
 CellLabel->"Out[27]=",
 CellID->282318334,ExpressionUUID->"4da23063-febc-4795-a1a2-4e612c2f8ab7"]
}, Open  ]],

Cell[TextData[{
 "Pick an enthalpy well into the Vapor phase ",
 Cell[BoxData[
  RowBox[{"(", 
   SubscriptBox["H", "V"]}]],ExpressionUUID->
  "0b4c728b-2300-4f81-8925-90bbe1338f92"],
 " > ",
 Cell[BoxData[
  SubscriptBox["H", "satV"]],ExpressionUUID->
  "7ace20d1-acd3-43f2-b935-8a305cb021f2"],
 "), the Liquid phase ",
 Cell[BoxData[
  RowBox[{"(", 
   SubscriptBox["H", "L"]}]],ExpressionUUID->
  "7c3bebb2-1a90-43c3-a74b-c6724bdac5a9"],
 " < ",
 Cell[BoxData[
  SubscriptBox["H", "satL"]],ExpressionUUID->
  "e1afa62a-bbfb-429a-ae17-021ffdc00418"],
 "), and an enthalpy halfway between the saturation values (2-phase enthalpy)."
}], "ExampleText",
 CellChangeTimes->{{3.8197180111337204`*^9, 3.8197181117337666`*^9}, {
  3.819866089222619*^9, 3.8198661836620936`*^9}},
 CellID->83228269,ExpressionUUID->"2f387d4a-2fd5-482b-85d7-b023f1cf1d37"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   SubscriptBox["S", "V"], "=", 
   RowBox[{"1.01", "*", 
    SubscriptBox["S", "satV"]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["S", 
    RowBox[{"2", "\[Phi]"}]], "=", 
   RowBox[{"0.5", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["S", "satL"], "+", 
      SubscriptBox["S", "satV"]}], ")"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.8197179042813425`*^9, 3.8197179125572467`*^9}, {
  3.8197180946704063`*^9, 3.819718101357498*^9}, {3.819718167557559*^9, 
  3.8197182635838537`*^9}, {3.819719179590316*^9, 3.819719215726714*^9}, {
  3.8197833301040535`*^9, 3.8197833600869036`*^9}, {3.8197834913031254`*^9, 
  3.819783491663162*^9}, {3.819784107759165*^9, 3.819784108254839*^9}, {
  3.8197843930475073`*^9, 3.8197844201111574`*^9}, {3.8198659859578037`*^9, 
  3.8198659897985325`*^9}, {3.8198661894546013`*^9, 3.819866219638899*^9}, {
  3.8198663156869965`*^9, 3.819866368934626*^9}, {3.8198683620381794`*^9, 
  3.8198683643739605`*^9}, {3.819868412798462*^9, 3.819868413933429*^9}, {
  3.8198685661495657`*^9, 3.819868607157264*^9}, {3.819869030445597*^9, 
  3.8198690564690046`*^9}, {3.819919087111861*^9, 3.8199190877740917`*^9}, {
  3.819951079400038*^9, 3.819951087176242*^9}, {3.82081893864968*^9, 
  3.82081895348102*^9}},
 CellLabel->"In[33]:=",
 CellID->116911388,ExpressionUUID->"2bda52fa-6c26-4c87-9da6-9c64ce292580"],

Cell[TextData[{
 "Get the fluid properties at the ",
 StyleBox["Vapor",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " state point using ",
 Cell[BoxData[
  ButtonBox["tsflsh",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/Tsflsh"]], "InlineFormula",
  ExpressionUUID->"e53cf998-ab93-4b06-a1a8-b31bb61932c6"],
 ", displaying results in a table.  ",
 StyleBox["Note:",
  FontWeight->"Bold"],
 " ",
 Cell[BoxData[
  StyleBox["Dl", "TI"]], "InlineFormula",ExpressionUUID->
  "e60ec7f9-2280-49c7-a4b9-3b2459b4eaaf"],
 " and ",
 Cell[BoxData[
  StyleBox["Q", "TI"]], "InlineFormula",ExpressionUUID->
  "4e5bd075-515f-417a-a7b1-88ee3e9e804d"],
 " are meaningless in this phase."
}], "ExampleText",
 CellChangeTimes->{{3.8188189157755613`*^9, 3.81881900567849*^9}, {
  3.8190315220697913`*^9, 3.8190315341105947`*^9}, {3.8192622139723945`*^9, 
  3.819262259952448*^9}, {3.819262547181425*^9, 3.8192626258939548`*^9}, {
  3.819262738166749*^9, 3.81926277373265*^9}, {3.8199191277431765`*^9, 
  3.819919164646515*^9}, {3.820818774296191*^9, 3.8208187926580887`*^9}},
 CellID->486045832,ExpressionUUID->"619a0dbe-33d5-4c08-97fe-9437f759e1f8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{"Apply", "[", 
   RowBox[{"List", ",", 
    RowBox[{"tsflsh", "[", 
     RowBox[{
      SubscriptBox["T", "sat"], ",", 
      SubscriptBox["S", "V"], ",", 
      SubscriptBox["z", "Air"]}], "]"}], ",", 
    RowBox[{"{", "1", "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{
  3.8190318574161053`*^9, {3.8191275961330013`*^9, 3.819127597011653*^9}, {
   3.8192622692057056`*^9, 3.8192622692944684`*^9}, {3.8192623039907255`*^9, 
   3.819262305549526*^9}, {3.8192626933974867`*^9, 3.819262695100932*^9}, {
   3.8192658122928233`*^9, 3.819265812381585*^9}, {3.8194436771935253`*^9, 
   3.819443678185872*^9}, {3.819950937703973*^9, 3.819950959832774*^9}, {
   3.8208188135302725`*^9, 3.8208188190564966`*^9}},
 NumberMarks->False,
 CellLabel->"In[35]:=",
 CellID->159919121,ExpressionUUID->"a01bbfa8-d877-43c4-83e5-3be23feb0dfe"],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {"\<\"P\"\>", 
     TemplateBox[{
      "84.60367595358701`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
      "Quantity"]},
    {"\<\"D\"\>", 
     TemplateBox[{"0.12851141045851777`", 
       RowBox[{
        "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"L\""}], "moles per liter", 
       FractionBox["\"Moles\"", "\"Liters\""]},
      "Quantity"]},
    {"\<\"Dl\"\>", 
     TemplateBox[{"0.12851141045851777`", 
       RowBox[{
        "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"L\""}], "moles per liter", 
       FractionBox["\"Moles\"", "\"Liters\""]},
      "Quantity"]},
    {"\<\"Dv\"\>", 
     TemplateBox[{"0.12851141045851777`", 
       RowBox[{
        "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"L\""}], "moles per liter", 
       FractionBox["\"Moles\"", "\"Liters\""]},
      "Quantity"]},
    {"\<\"xliq\"\>", GridBox[{
       {"0.7812`"},
       {"0.0092`"},
       {"0.2096`"}
      },
      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}}]},
    {"\<\"xvap\"\>", GridBox[{
       {"0.7812`"},
       {"0.0092`"},
       {"0.2096`"}
      },
      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}}]},
    {"\<\"Q\"\>", "1.2067149777006807`"},
    {"\<\"U\"\>", 
     TemplateBox[{"1644.4152302061368`", 
       RowBox[{
        "\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"mol\""}], "joules per mole", 
       FractionBox["\"Joules\"", "\"Moles\""]},
      "Quantity"]},
    {"\<\"H\"\>", 
     TemplateBox[{"2302.751137124661`", 
       RowBox[{
        "\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"mol\""}], "joules per mole", 
       FractionBox["\"Joules\"", "\"Moles\""]},
      "Quantity"]},
    {"\<\"Cv\"\>", 
     TemplateBox[{"21.21292305403233`", 
       RowBox[{
        "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
         "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
       "joules per kelvin mole", 
       FractionBox["\"Joules\"", 
        RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
      "Quantity"]},
    {"\<\"Cp\"\>", 
     TemplateBox[{"30.60411241696451`", 
       RowBox[{
        "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
         "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
       "joules per kelvin mole", 
       FractionBox["\"Joules\"", 
        RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
      "Quantity"]},
    {"\<\"W\"\>", 
     TemplateBox[{"178.12898500948933`", 
       RowBox[{
        "\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}],
        "meters per second", 
       FractionBox["\"Meters\"", "\"Seconds\""]},
      "Quantity"]}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  TableForm[{{"P", 
     Quantity[84.60367595358701, "Kilopascals"]}, {"D", 
     Quantity[0.12851141045851777`, "Liters"^(-1) "Moles"]}, {"Dl", 
     Quantity[0.12851141045851777`, "Liters"^(-1) "Moles"]}, {"Dv", 
     Quantity[0.12851141045851777`, "Liters"^(-1) "Moles"]}, {
    "xliq", {0.7812, 0.0092, 0.2096}}, {"xvap", {0.7812, 0.0092, 0.2096}}, {
    "Q", 1.2067149777006807`}, {"U", 
     Quantity[1644.4152302061368`, "Joules"/"Moles"]}, {"H", 
     Quantity[2302.751137124661, "Joules"/"Moles"]}, {"Cv", 
     Quantity[21.21292305403233, "Joules" "Kelvins"^(-1)/"Moles"]}, {"Cp", 
     Quantity[30.60411241696451, "Joules" "Kelvins"^(-1)/"Moles"]}, {"W", 
     Quantity[178.12898500948933`, "Meters"/"Seconds"]}}]]], "Output",
 CellChangeTimes->{{3.8190318460535097`*^9, 3.819031861713614*^9}, 
   3.819031902259221*^9, 3.819127498194881*^9, 3.819127605696402*^9, 
   3.819262328494203*^9, 3.819262521452256*^9, 3.8192626993156605`*^9, 
   3.819262980225506*^9, 3.819263012292761*^9, {3.819263374903174*^9, 
   3.8192633922916794`*^9}, 3.8192634234453773`*^9, 3.819265814148859*^9, 
   3.8193078597868347`*^9, 3.819443683908575*^9, 3.8199509820623446`*^9, {
   3.8208188069648013`*^9, 3.820818820349037*^9}, 3.820818959682437*^9},
 CellLabel->"Out[35]//TableForm=",
 CellID->139919868,ExpressionUUID->"a6e764a8-ff1b-44df-b505-53105e6d1bea"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "bacb2c96-978e-435c-b82c-db36ff9ca911"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->443895119,ExpressionUUID->"2c868e51-0c9a-4dd7-86c3-95a8c067f58f"],

Cell[TextData[{
 "Get the fluid properties at the ",
 StyleBox["2-Phase",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " state point using ",
 Cell[BoxData[
  ButtonBox["tsflsh",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/Tsflsh"]], "InlineFormula",
  ExpressionUUID->"1841b751-67de-4812-a057-b3cde4354006"],
 ", displaying results in a table."
}], "ExampleText",
 CellChangeTimes->{{3.8188189157755613`*^9, 3.81881900567849*^9}, {
  3.8190315220697913`*^9, 3.8190315341105947`*^9}, {3.8192622139723945`*^9, 
  3.819262259952448*^9}, {3.819262547181425*^9, 3.8192626258939548`*^9}, {
  3.819262738166749*^9, 3.81926277373265*^9}, {3.819262852061205*^9, 
  3.8192628605086184`*^9}, {3.819263765788982*^9, 3.819263794012516*^9}, {
  3.819919191382022*^9, 3.8199192047273273`*^9}, {3.8208188317525463`*^9, 
  3.8208188546672354`*^9}},
 CellID->351523444,ExpressionUUID->"810ec18a-037b-4175-ba0e-8430c45d0e0d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{"Apply", "[", 
   RowBox[{"List", ",", 
    RowBox[{"tsflsh", "[", 
     RowBox[{
      SubscriptBox["T", "sat"], ",", 
      SubscriptBox["S", 
       RowBox[{"2", "\[Phi]"}]], ",", 
      SubscriptBox["z", "Air"]}], "]"}], ",", 
    RowBox[{"{", "1", "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{
  3.8190318574161053`*^9, {3.8191275961330013`*^9, 3.819127597011653*^9}, {
   3.8192622692057056`*^9, 3.8192622692944684`*^9}, {3.8192623039907255`*^9, 
   3.819262305549526*^9}, {3.8192626933974867`*^9, 3.819262695100932*^9}, {
   3.819262828437373*^9, 3.8192628357248874`*^9}, {3.8192658379332623`*^9, 
   3.8192658379970922`*^9}, {3.819443693521864*^9, 3.819443694609928*^9}, {
   3.819951000607749*^9, 3.819951010472369*^9}, {3.820818864393258*^9, 
   3.8208188722412677`*^9}},
 NumberMarks->False,
 CellLabel->"In[36]:=",
 CellID->471373780,ExpressionUUID->"82e9ae9b-df70-4a9b-a7d4-ce482a02aa0d"],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {"\<\"P\"\>", 
     TemplateBox[{
      "126.14978057898696`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
      "Quantity"]},
    {"\<\"D\"\>", 
     TemplateBox[{"0.3996822904555386`", 
       RowBox[{
        "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"L\""}], "moles per liter", 
       FractionBox["\"Moles\"", "\"Liters\""]},
      "Quantity"]},
    {"\<\"Dl\"\>", 
     TemplateBox[{"30.683124188147012`", 
       RowBox[{
        "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"L\""}], "moles per liter", 
       FractionBox["\"Moles\"", "\"Liters\""]},
      "Quantity"]},
    {"\<\"Dv\"\>", 
     TemplateBox[{"0.19470865765114664`", 
       RowBox[{
        "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"L\""}], "moles per liter", 
       FractionBox["\"Moles\"", "\"Liters\""]},
      "Quantity"]},
    {"\<\"xliq\"\>", GridBox[{
       {"0.6813334289188278`"},
       {"0.012009216324815442`"},
       {"0.3066573547563568`"}
      },
      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}}]},
    {"\<\"xvap\"\>", GridBox[{
       {"0.887719033751389`"},
       {"0.006203651919972741`"},
       {"0.10607731432863818`"}
      },
      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}}]},
    {"\<\"Q\"\>", "0.48388341406946994`"},
    {"\<\"U\"\>", 
     TemplateBox[{
       RowBox[{"-", "1098.548347682699`"}], 
       RowBox[{
        "\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"mol\""}], "joules per mole", 
       FractionBox["\"Joules\"", "\"Moles\""]},
      "Quantity"]},
    {"\<\"H\"\>", 
     TemplateBox[{
       RowBox[{"-", "782.9232036847864`"}], 
       RowBox[{
        "\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"mol\""}], "joules per mole", 
       FractionBox["\"Joules\"", "\"Moles\""]},
      "Quantity"]},
    {"\<\"Cv\"\>", 
     TemplateBox[{
       RowBox[{"-", "9.99999`*^6"}], 
       RowBox[{
        "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
         "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
       "joules per kelvin mole", 
       FractionBox["\"Joules\"", 
        RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
      "Quantity"]},
    {"\<\"Cp\"\>", 
     TemplateBox[{
       RowBox[{"-", "9.99998`*^6"}], 
       RowBox[{
        "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
         "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
       "joules per kelvin mole", 
       FractionBox["\"Joules\"", 
        RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
      "Quantity"]},
    {"\<\"W\"\>", 
     TemplateBox[{
       RowBox[{"-", "9.99998`*^6"}], 
       RowBox[{
        "\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}],
        "meters per second", 
       FractionBox["\"Meters\"", "\"Seconds\""]},
      "Quantity"]}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  TableForm[{{"P", 
     Quantity[126.14978057898696`, "Kilopascals"]}, {"D", 
     Quantity[0.3996822904555386, "Liters"^(-1) "Moles"]}, {"Dl", 
     Quantity[30.683124188147012`, "Liters"^(-1) "Moles"]}, {"Dv", 
     Quantity[0.19470865765114664`, "Liters"^(-1) "Moles"]}, {
    "xliq", {0.6813334289188278, 0.012009216324815442`, 
     0.3066573547563568}}, {
    "xvap", {0.887719033751389, 0.006203651919972741, 
     0.10607731432863818`}}, {"Q", 0.48388341406946994`}, {"U", 
     Quantity[-1098.548347682699, "Joules"/"Moles"]}, {"H", 
     Quantity[-782.9232036847864, "Joules"/"Moles"]}, {"Cv", 
     Quantity[-9.99999*^6, "Joules" "Kelvins"^(-1)/"Moles"]}, {"Cp", 
     Quantity[-9.99998*^6, "Joules" "Kelvins"^(-1)/"Moles"]}, {"W", 
     Quantity[-9.99998*^6, "Meters"/"Seconds"]}}]]], "Output",
 CellChangeTimes->{{3.8190318460535097`*^9, 3.819031861713614*^9}, 
   3.819031902259221*^9, 3.819127498194881*^9, 3.819127605696402*^9, 
   3.819262328494203*^9, 3.819262521452256*^9, 3.8192626993156605`*^9, 
   3.819262867810095*^9, 3.8192629288867807`*^9, 3.819262986665286*^9, 
   3.8192630205676346`*^9, 3.8192634331643896`*^9, 3.8192637444759707`*^9, {
   3.8192642443204346`*^9, 3.8192642609649277`*^9}, 3.8192643040447702`*^9, 
   3.8192643385355115`*^9, 3.819265841145685*^9, 3.8192659109570036`*^9, 
   3.8193078638150463`*^9, 3.8194437225552044`*^9, 3.819951021697358*^9, 
   3.8208188766843605`*^9, 3.820818966238909*^9},
 CellLabel->"Out[36]//TableForm=",
 CellID->610262452,ExpressionUUID->"ff101363-72ff-46fb-ae8a-749763ead4e1"]
}, Open  ]],

Cell[TextData[{
 StyleBox["Note:",
  FontWeight->"Bold"],
 " ",
 Cell[BoxData[
  StyleBox["Cv", "TI"]], "InlineFormula",ExpressionUUID->
  "4845d42c-3d94-43de-a92c-abef128e79fd"],
 ", ",
 Cell[BoxData[
  StyleBox["Cp", "TI"]], "InlineFormula",ExpressionUUID->
  "28963868-a48e-4145-8af4-0414c11f81c4"],
 ", and ",
 Cell[BoxData[
  StyleBox["W", "TI"]], "InlineFormula",ExpressionUUID->
  "8d02ef14-63ae-4d9e-bd85-7c1f1bbb2206"],
 " are undefined in the 2-phase region and the values returned there are \
meaningless."
}], "ExampleText",
 CellChangeTimes->{{3.8188189157755613`*^9, 3.81881900567849*^9}, {
  3.8190315220697913`*^9, 3.8190315341105947`*^9}, {3.8192622139723945`*^9, 
  3.819262259952448*^9}, {3.819262547181425*^9, 3.8192626258939548`*^9}, {
  3.819262738166749*^9, 3.81926277373265*^9}, {3.8194455790239935`*^9, 
  3.819445683264292*^9}},
 CellID->264585773,ExpressionUUID->"3d82ced7-e5e8-4ca1-9ea3-2c11fc9ea00d"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968,ExpressionUUID->"ca903bf6-b5c2-4483-9f9b-53c4dce0c1f4"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Scope", "ExampleSection",ExpressionUUID->
   "d7f51eb8-6dbf-447d-97dc-7bb6f02e5cb5"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1293636265,ExpressionUUID->"fbce712c-d476-4e0c-990e-8c9a7db36d64"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Generalizations & Extensions", "ExampleSection",ExpressionUUID->
   "3e6160c6-2fbe-43a4-b4b3-2492705ad569"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1020263627,ExpressionUUID->"5baaac8c-7562-46cc-8265-33d40860ab8b"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Options", "ExampleSection",ExpressionUUID->
   "4a7926a7-3f51-4abb-a8e8-d35cf72850e0"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2061341341,ExpressionUUID->"c6f38e5a-371d-4788-a9d4-b65c5086cb88"],

Cell[BoxData[
 InterpretationBox[Cell[
  "XXXX", "ExampleSubsection",ExpressionUUID->
   "367f93df-3ac2-482f-88d4-e11c61f3ca51"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1757724783,ExpressionUUID->"18d1f07a-9035-4e9e-8cee-167b6cffa1fa"],

Cell[BoxData[
 InterpretationBox[Cell[
  "XXXX", "ExampleSubsection",ExpressionUUID->
   "494d81d8-4836-42ab-b367-4590876e7f3d"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1295379749,ExpressionUUID->"d9e6d77a-b13e-4106-97bc-1823b23a42cb"]
}, Closed]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Applications", "ExampleSection",ExpressionUUID->
   "50a6b73b-688f-40d5-bb29-97bf3b11c4bf"],
  $Line = 0; Null]], "ExampleSection",
 CellID->258228157,ExpressionUUID->"ca99a701-37ad-4304-8dfa-1239ebc19188"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Properties & Relations", "ExampleSection",ExpressionUUID->
   "c5612599-57fd-4aa4-9021-1a82dcdbff7f"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2123667759,ExpressionUUID->"157f08eb-ac35-4b69-a0bc-802e81632f36"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Possible Issues", "ExampleSection",ExpressionUUID->
   "e3c471c8-cd16-4826-823d-b63d677d2946"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1305812373,ExpressionUUID->"b0882248-2a48-4785-bf41-74af48b3df21"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Interactive Examples", "ExampleSection",ExpressionUUID->
   "f5ce0fe4-fa5b-4da7-84f7-41581a1161e3"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1653164318,ExpressionUUID->"18cc7dd2-3930-49fc-8b60-24c00021c78d"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Neat Examples", "ExampleSection",ExpressionUUID->
   "de44ca8a-1f9d-47bd-94e3-eb72ad358567"],
  $Line = 0; Null]], "ExampleSection",
 CellID->589267740,ExpressionUUID->"4f1d61d8-19d7-425d-98e0-26da6f6c0ab4"]
}, Open  ]]
},
WindowSize->{700, 766},
WindowMargins->{{-1681, Automatic}, {Automatic, 47}},
CellContext->"Global`",
FrontEndVersion->"12.1 for Microsoft Windows (64-bit) (June 19, 2020)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionPageStyles.nb", 
  CharacterEncoding -> "UTF-8"],
ExpressionUUID->"9dbf9ad2-84ec-4105-9b0a-d90b4024632c"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "ExtendedExamples"->{
  Cell[85276, 2203, 155, 2, 54, "ExtendedExamplesSection",ExpressionUUID->"ca903bf6-b5c2-4483-9f9b-53c4dce0c1f4",
   CellTags->"ExtendedExamples",
   CellID->1854448968]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"ExtendedExamples", 88480, 2294}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 666, 15, 22, "History",ExpressionUUID->"b22199f1-725e-45eb-82f7-eee711cccfc1",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[1249, 39, 123, 1, 27, "CategorizationSection",ExpressionUUID->"ee23431f-c9fd-44b8-bb4e-f4977ffc2b9b",
 CellID->1122911449],
Cell[1375, 42, 134, 2, 31, "Categorization",ExpressionUUID->"8a681bfc-9553-4c97-b738-6d4745f13303",
 CellID->686433507],
Cell[1512, 46, 144, 2, 31, "Categorization",ExpressionUUID->"affbb7a4-febe-45a8-b3bb-b1326a96cc7c",
 CellID->825209],
Cell[1659, 50, 136, 2, 31, "Categorization",ExpressionUUID->"a400eb29-c137-4ac4-8fb5-56bc8f12ecb5",
 CellID->256073118],
Cell[1798, 54, 142, 2, 31, "Categorization",ExpressionUUID->"80bdfbf2-a05a-4f1c-956a-e5371199b973",
 CellID->897493953]
}, Closed]],
Cell[CellGroupData[{
Cell[1977, 61, 110, 1, 17, "KeywordsSection",ExpressionUUID->"7a38fd84-0bac-463f-82b4-10a87053535c",
 CellID->477174294],
Cell[2090, 64, 169, 2, 17, "Keywords",ExpressionUUID->"06386b5a-cd1b-45b1-9221-3066d11bf024",
 CellID->1164421360],
Cell[2262, 68, 172, 2, 17, "Keywords",ExpressionUUID->"b7afaad7-4981-4c6f-ab55-92dbae73f306",
 CellID->25082398],
Cell[2437, 72, 170, 2, 17, "Keywords",ExpressionUUID->"d564deb5-40be-4067-8d63-98d05bf1fc02",
 CellID->295521566]
}, Closed]],
Cell[CellGroupData[{
Cell[2644, 79, 120, 1, 17, "TemplatesSection",ExpressionUUID->"23bf91ac-3bf1-4c69-90a2-cff29969bb49",
 CellID->1872225408],
Cell[2767, 82, 149, 2, 70, "Template",ExpressionUUID->"5d9c4697-560e-426c-9371-ba2617826a55",
 CellID->1562036412],
Cell[2919, 86, 137, 2, 70, "Template",ExpressionUUID->"42aac497-a7ff-4d8e-ac7c-4f73e190dbce",
 CellID->158391909],
Cell[3059, 90, 136, 2, 70, "Template",ExpressionUUID->"080a37c8-5391-420b-ba2a-4a78ab666645",
 CellID->1360575930],
Cell[3198, 94, 137, 2, 70, "Template",ExpressionUUID->"858029ad-240b-49ba-b465-007b30b05313",
 CellID->793782254]
}, Closed]],
Cell[CellGroupData[{
Cell[3372, 101, 108, 1, 17, "DetailsSection",ExpressionUUID->"50d7077e-5e69-4582-b3d1-8ae5d925a642",
 CellID->307771771],
Cell[3483, 104, 202, 3, 31, "Details",ExpressionUUID->"2c26a126-5947-4acb-9207-ebaf1107476a",
 CellID->670882175],
Cell[3688, 109, 198, 3, 31, "Details",ExpressionUUID->"1316aaa0-48a1-4d85-8629-d80647ee5a56",
 CellID->350963985],
Cell[3889, 114, 195, 3, 31, "Details",ExpressionUUID->"f72b87dd-315f-422d-8184-f00bc0b336c8",
 CellID->8391405],
Cell[4087, 119, 124, 2, 31, "Details",ExpressionUUID->"baeec4d3-a1c6-4229-90bc-daf8e2ace0cb",
 CellID->3610269],
Cell[4214, 123, 116, 2, 31, "Details",ExpressionUUID->"634ae53f-5ea2-4fbf-ae99-f67001c553b8",
 CellID->401364205],
Cell[4333, 127, 116, 2, 31, "Details",ExpressionUUID->"583435fd-ba3c-42ae-8f62-3dd84c4d2fdf",
 CellID->350204745],
Cell[4452, 131, 118, 2, 31, "Details",ExpressionUUID->"ed60a8c7-9a20-4a76-9a64-2e8839c5ee90",
 CellID->732958810],
Cell[4573, 135, 133, 2, 31, "Details",ExpressionUUID->"d2c52bb4-69b9-44e3-9711-7e21e201c627",
 CellID->222905350],
Cell[4709, 139, 122, 2, 31, "Details",ExpressionUUID->"289a4266-f4c1-46c3-bc8e-6b37d9a9589d",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[4868, 146, 104, 1, 62, "ObjectName",ExpressionUUID->"8b0a1e96-8808-4a40-9aa3-c2ec8f57dfa4",
 CellID->1224892054],
Cell[4975, 149, 3324, 78, 265, "Usage",ExpressionUUID->"06275a88-7604-4dae-b196-60396cd41e4d"],
Cell[8302, 229, 401, 7, 37, "Notes",ExpressionUUID->"a6e9e6ab-6859-4d5d-bf95-4607f22608d7",
 CellID->1067943069],
Cell[8706, 238, 722, 17, 25, "Notes",ExpressionUUID->"14e73317-7e0a-48c4-9755-73134710955d",
 CellID->92685284],
Cell[9431, 257, 649, 16, 25, "Notes",ExpressionUUID->"f54102a2-bf25-4eb9-be40-0d1af80535e1",
 CellID->105947288],
Cell[10083, 275, 803, 19, 40, "Notes",ExpressionUUID->"90987935-1459-4e51-87df-a844430a8869",
 CellID->247327860],
Cell[10889, 296, 792, 17, 39, "Notes",ExpressionUUID->"1fbc2146-e08e-4eb0-b6d8-0b59f60dcf6a",
 CellID->185672948],
Cell[11684, 315, 2062, 54, 53, "Notes",ExpressionUUID->"4cfd5f82-fcd3-4402-929f-c0ec4412165c",
 CellID->10490178]
}, Open  ]],
Cell[CellGroupData[{
Cell[13783, 374, 112, 1, 44, "TutorialsSection",ExpressionUUID->"d009f48b-a153-44ad-849b-e5b40751650c",
 CellID->250839057],
Cell[13898, 377, 342, 5, 16, "Tutorials",ExpressionUUID->"f3df682a-224e-41f7-b160-e666c7bebd61",
 CellID->341631938],
Cell[14243, 384, 339, 5, 16, "Tutorials",ExpressionUUID->"d3bd9432-73a4-439c-bca3-0cebd2283152",
 CellID->339404089]
}, Open  ]],
Cell[CellGroupData[{
Cell[14619, 394, 138, 1, 31, "RelatedDemonstrationsSection",ExpressionUUID->"bb8f35da-e74d-4594-a5a9-bb8d3fa273a9",
 CellID->1268215905],
Cell[14760, 397, 113, 1, 16, "RelatedDemonstrations",ExpressionUUID->"efcd7a8b-2be1-4d47-9a08-49ca0d2a2d82",
 CellID->1129518860]
}, Open  ]],
Cell[CellGroupData[{
Cell[14910, 403, 120, 1, 31, "RelatedLinksSection",ExpressionUUID->"086bd290-7910-44cd-95b3-e729bbb333c3",
 CellID->1584193535],
Cell[15033, 406, 104, 1, 16, "RelatedLinks",ExpressionUUID->"432d6d26-a63f-4e14-8ed6-bff664e9c4fa",
 CellID->1038487239]
}, Open  ]],
Cell[CellGroupData[{
Cell[15174, 412, 110, 1, 31, "SeeAlsoSection",ExpressionUUID->"e6db9859-334f-4d41-bd53-c20e8c5b71bb",
 CellID->1255426704],
Cell[15287, 415, 1641, 44, 18, "SeeAlso",ExpressionUUID->"171a1937-a6c5-4d39-adf3-34d6562c7a6a",
 CellID->929782353]
}, Open  ]],
Cell[CellGroupData[{
Cell[16965, 464, 112, 1, 31, "MoreAboutSection",ExpressionUUID->"b153c977-3c2f-42d3-bbaa-9684d81126f9",
 CellID->38303248],
Cell[17080, 467, 101, 1, 16, "MoreAbout",ExpressionUUID->"622e5ed6-1984-4f07-b8d9-de9c96faa7e5",
 CellID->1665078683]
}, Open  ]],
Cell[CellGroupData[{
Cell[17218, 473, 411, 11, 68, "PrimaryExamplesSection",ExpressionUUID->"ba117547-ee66-4f2c-8ecc-2659b913fb31",
 CellID->880084151],
Cell[CellGroupData[{
Cell[17654, 488, 322, 6, 22, "ExampleSubsection",ExpressionUUID->"b01023f7-2785-43f5-b3a3-98306cf2375e",
 CellID->27774595],
Cell[CellGroupData[{
Cell[18001, 498, 286, 6, 25, "Input",ExpressionUUID->"23296ff6-39a8-4e2c-a31f-6d78713af818",
 CellID->6918097],
Cell[18290, 506, 286, 5, 24, "Output",ExpressionUUID->"7adb9f5f-d672-4198-87a2-231126ed091c",
 CellID->316742852]
}, Open  ]],
Cell[18591, 514, 272, 3, 20, "ExampleText",ExpressionUUID->"74f2015e-5754-47d5-bfcb-16b1c28047df",
 CellID->438734899],
Cell[CellGroupData[{
Cell[18888, 521, 1061, 30, 80, "Input",ExpressionUUID->"20ff60ae-b65e-467c-8c5c-4bf2c7fb10a2",
 CellID->9550323],
Cell[19952, 553, 597, 13, 36, "Output",ExpressionUUID->"2fb435e6-bb75-473e-8e21-ab964be542e2",
 CellID->122336646]
}, Open  ]],
Cell[CellGroupData[{
Cell[20586, 571, 428, 12, 25, "Input",ExpressionUUID->"94ab7b82-2bb4-4929-b3d1-3aeec0894087",
 CellID->264059589],
Cell[21017, 585, 604, 13, 36, "Output",ExpressionUUID->"b950bb20-b90a-43e2-9897-bcd40cc80678",
 CellID->234439066]
}, Open  ]],
Cell[21636, 601, 816, 18, 34, "ExampleText",ExpressionUUID->"8e26dbd0-b877-42c6-b3d1-c1518aeac45a",
 CellID->153763687],
Cell[CellGroupData[{
Cell[22477, 623, 1380, 29, 63, "Input",ExpressionUUID->"aa419ca2-6bc6-4b2b-8cd0-11c052d0cbc2",
 CellID->110293625],
Cell[23860, 654, 627, 14, 36, "Output",ExpressionUUID->"0f77ff5c-ee08-47c2-b1be-7e6f59cffdc0",
 CellID->94590296],
Cell[24490, 670, 628, 14, 36, "Output",ExpressionUUID->"46a5c768-4f87-4706-be5e-8ddb8a8d50a4",
 CellID->215697584],
Cell[25121, 686, 630, 14, 36, "Output",ExpressionUUID->"7c376fa4-90fe-469e-940b-2d792e6536de",
 CellID->217980371]
}, Open  ]],
Cell[25766, 703, 1269, 30, 38, "ExampleText",ExpressionUUID->"785d273b-30d1-444f-90ba-d6b803c85eab",
 CellID->282389568],
Cell[CellGroupData[{
Cell[27060, 737, 866, 18, 25, "Input",ExpressionUUID->"c6f4aefe-ab4b-4eea-8869-c1d64d210a77",
 CellID->55698167],
Cell[27929, 757, 5063, 121, 302, "Output",ExpressionUUID->"23366559-7b1c-4809-adca-445861bd5494",
 CellID->3285396]
}, Open  ]],
Cell[CellGroupData[{
Cell[33029, 883, 240, 5, 16, "ExampleDelimiter",ExpressionUUID->"6fbfc7ed-6fa6-4b34-8a54-78982ec4e154",
 CellID->5420675],
Cell[33272, 890, 846, 18, 22, "ExampleText",ExpressionUUID->"c6e0b23f-ae87-4481-964a-1f4d7e303ccf",
 CellID->621154184],
Cell[CellGroupData[{
Cell[34143, 912, 793, 17, 27, "Input",ExpressionUUID->"f2cad8b5-ae00-4168-bfe5-b0d65a8351ef",
 CellID->38521166],
Cell[34939, 931, 4496, 115, 305, "Output",ExpressionUUID->"0624fa56-7026-4e99-8cb1-bfe6bf7f50de",
 CellID->414893323]
}, Open  ]],
Cell[39450, 1049, 1404, 34, 39, "ExampleText",ExpressionUUID->"da4baa9f-1059-48b8-aa5a-a3ac0b362092",
 CellID->164614660]
}, Open  ]],
Cell[CellGroupData[{
Cell[40891, 1088, 242, 5, 16, "ExampleDelimiter",ExpressionUUID->"ba156930-d3b1-4897-8fd1-9bd447e77b69",
 CellID->455998439],
Cell[41136, 1095, 1167, 29, 38, "ExampleText",ExpressionUUID->"e8a3c0c9-2d6b-4f36-b961-5212b0e4d1bf",
 CellID->7515539],
Cell[CellGroupData[{
Cell[42328, 1128, 815, 17, 25, "Input",ExpressionUUID->"7bf86d32-0a22-4986-87ff-8e3264b3bc25",
 CellID->127986277],
Cell[43146, 1147, 5026, 120, 299, "Output",ExpressionUUID->"79156811-fa65-4dc4-878a-7653a02069d4",
 CellID->202632095]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[48221, 1273, 242, 5, 16, "ExampleDelimiter",ExpressionUUID->"d006206f-6877-4a9d-8d18-b5639b386893",
 CellID->745475516],
Cell[48466, 1280, 1725, 31, 88, "ExampleText",ExpressionUUID->"f3e66d8a-1bea-46c2-a338-f9bab4bc8ed4",
 CellID->172987855],
Cell[CellGroupData[{
Cell[50216, 1315, 899, 19, 27, "Input",ExpressionUUID->"7207801b-39e4-4ff5-ab82-9b31ddadde31",
 CellID->6279350],
Cell[51118, 1336, 642, 11, 55, "Message",ExpressionUUID->"38dc6b82-bbee-4e93-9f3f-e76a46370859",
 CellID->222633564],
Cell[51763, 1349, 728, 19, 24, "Output",ExpressionUUID->"16234029-a92f-4cb2-8e83-7e7322589081",
 CellID->26449207]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[52540, 1374, 242, 5, 16, "ExampleDelimiter",ExpressionUUID->"1ed41320-a37d-4811-bc76-a3abf71651a9",
 CellID->599206118],
Cell[52785, 1381, 1142, 23, 51, "ExampleText",ExpressionUUID->"0d6b501f-0731-4bd0-854c-0ffa8809b378",
 CellID->216850838],
Cell[CellGroupData[{
Cell[53952, 1408, 1067, 25, 62, "Input",ExpressionUUID->"74e67327-a7e5-4799-86e8-ccb91cb6c7e2",
 CellID->398372668],
Cell[55022, 1435, 2384, 56, 206, "Output",ExpressionUUID->"e8dbaa21-1472-4e97-a32d-f843d343978a",
 CellID->451914167]
}, Open  ]]
}, Open  ]],
Cell[57433, 1495, 242, 5, 16, "ExampleDelimiter",ExpressionUUID->"d0420ffd-6d6b-4fac-8387-6b010b2abec7",
 CellID->508130048]
}, Open  ]],
Cell[CellGroupData[{
Cell[57712, 1505, 320, 6, 22, "ExampleSubsection",ExpressionUUID->"47d72ee1-bac2-4f8c-9b6d-0c8b35744424",
 CellID->450938995],
Cell[58035, 1513, 549, 12, 22, "ExampleText",ExpressionUUID->"a3993400-322c-447f-aaa0-9cf817b87fec",
 CellID->58646033],
Cell[CellGroupData[{
Cell[58609, 1529, 798, 17, 25, "Input",ExpressionUUID->"dcb757b5-c599-4a06-818e-0d640b82640e",
 CellID->8141322],
Cell[59410, 1548, 615, 14, 24, "Output",ExpressionUUID->"bbb29d8d-46ce-4b85-89fe-06587994078b",
 CellID->238592046]
}, Open  ]],
Cell[60040, 1565, 798, 12, 33, "ExampleText",ExpressionUUID->"c7b3fbee-7371-4af4-84a8-ae19597ad24b",
 CellID->728165588],
Cell[CellGroupData[{
Cell[60863, 1581, 1501, 30, 44, "Input",ExpressionUUID->"d2ebbbed-1ec0-4f75-9c8e-9d78ced963f8",
 CellID->109800155],
Cell[62367, 1613, 1346, 31, 65, "Output",ExpressionUUID->"00726dac-e389-43a4-9aa8-e375197d4753",
 CellID->700776054]
}, Open  ]],
Cell[63728, 1647, 542, 12, 22, "ExampleText",ExpressionUUID->"f448e8d5-62fc-4d97-a77e-8b471bc92d7e",
 CellID->217969826],
Cell[CellGroupData[{
Cell[64295, 1663, 867, 19, 25, "Input",ExpressionUUID->"7ce26b85-46d8-45b9-908c-687d4e67e57f",
 CellID->64348709],
Cell[65165, 1684, 774, 16, 36, "Output",ExpressionUUID->"4a43f73e-0110-470b-bbf3-33e33a193fff",
 CellID->120885286]
}, Open  ]],
Cell[65954, 1703, 408, 10, 20, "ExampleText",ExpressionUUID->"c6787323-f77f-41d2-9c12-352ee0f3f8d1",
 CellID->436747077],
Cell[CellGroupData[{
Cell[66387, 1717, 521, 14, 25, "Input",ExpressionUUID->"1ac0c1d8-3cf4-4ef8-9bad-1adbe3681f7e",
 CellID->399679268],
Cell[66911, 1733, 527, 12, 36, "Output",ExpressionUUID->"4da23063-febc-4795-a1a2-4e612c2f8ab7",
 CellID->282318334]
}, Open  ]],
Cell[67453, 1748, 846, 23, 34, "ExampleText",ExpressionUUID->"2f387d4a-2fd5-482b-85d7-b023f1cf1d37",
 CellID->83228269],
Cell[68302, 1773, 1409, 29, 45, "Input",ExpressionUUID->"2bda52fa-6c26-4c87-9da6-9c64ce292580",
 CellID->116911388],
Cell[69714, 1804, 1149, 29, 38, "ExampleText",ExpressionUUID->"619a0dbe-33d5-4c08-97fe-9437f759e1f8",
 CellID->486045832],
Cell[CellGroupData[{
Cell[70888, 1837, 882, 19, 25, "Input",ExpressionUUID->"a01bbfa8-d877-43c4-83e5-3be23feb0dfe",
 CellID->159919121],
Cell[71773, 1858, 4967, 122, 342, "Output",ExpressionUUID->"a6e764a8-ff1b-44df-b505-53105e6d1bea",
 CellID->139919868]
}, Open  ]],
Cell[CellGroupData[{
Cell[76777, 1985, 242, 5, 16, "ExampleDelimiter",ExpressionUUID->"2c868e51-0c9a-4dd7-86c3-95a8c067f58f",
 CellID->443895119],
Cell[77022, 1992, 926, 20, 22, "ExampleText",ExpressionUUID->"810ec18a-037b-4175-ba0e-8430c45d0e0d",
 CellID->351523444],
Cell[CellGroupData[{
Cell[77973, 2016, 960, 21, 27, "Input",ExpressionUUID->"82e9ae9b-df70-4a9b-a7d4-ce482a02aa0d",
 CellID->471373780],
Cell[78936, 2039, 5335, 131, 399, "Output",ExpressionUUID->"ff101363-72ff-46fb-ae8a-749763ead4e1",
 CellID->610262452]
}, Open  ]],
Cell[84286, 2173, 929, 23, 36, "ExampleText",ExpressionUUID->"3d82ced7-e5e8-4ca1-9ea3-2c11fc9ea00d",
 CellID->264585773]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[85276, 2203, 155, 2, 54, "ExtendedExamplesSection",ExpressionUUID->"ca903bf6-b5c2-4483-9f9b-53c4dce0c1f4",
 CellTags->"ExtendedExamples",
 CellID->1854448968],
Cell[85434, 2207, 242, 5, 31, "ExampleSection",ExpressionUUID->"fbce712c-d476-4e0c-990e-8c9a7db36d64",
 CellID->1293636265],
Cell[85679, 2214, 265, 5, 19, "ExampleSection",ExpressionUUID->"5baaac8c-7562-46cc-8265-33d40860ab8b",
 CellID->1020263627],
Cell[CellGroupData[{
Cell[85969, 2223, 244, 5, 19, "ExampleSection",ExpressionUUID->"c6f38e5a-371d-4788-a9d4-b65c5086cb88",
 CellID->2061341341],
Cell[86216, 2230, 247, 5, 70, "ExampleSubsection",ExpressionUUID->"18d1f07a-9035-4e9e-8cee-167b6cffa1fa",
 CellID->1757724783],
Cell[86466, 2237, 247, 5, 70, "ExampleSubsection",ExpressionUUID->"d9e6d77a-b13e-4106-97bc-1823b23a42cb",
 CellID->1295379749]
}, Closed]],
Cell[86728, 2245, 248, 5, 19, "ExampleSection",ExpressionUUID->"ca99a701-37ad-4304-8dfa-1239ebc19188",
 CellID->258228157],
Cell[86979, 2252, 259, 5, 19, "ExampleSection",ExpressionUUID->"157f08eb-ac35-4b69-a0bc-802e81632f36",
 CellID->2123667759],
Cell[87241, 2259, 252, 5, 19, "ExampleSection",ExpressionUUID->"b0882248-2a48-4785-bf41-74af48b3df21",
 CellID->1305812373],
Cell[87496, 2266, 257, 5, 19, "ExampleSection",ExpressionUUID->"18cc7dd2-3930-49fc-8b60-24c00021c78d",
 CellID->1653164318],
Cell[87756, 2273, 249, 5, 19, "ExampleSection",ExpressionUUID->"4f1d61d8-19d7-425d-98e0-26da6f6c0ab4",
 CellID->589267740]
}, Open  ]]
}
]
*)

